{ PDF object is supposed to be created }
PDF.BeginDoc;
profile := PDF.LoadICCProfile('EuropeISOCoatedFOGRA27.icc');
PDF.PDFPAGE_SetColorSpace(profile);
txType := PDF.PDFPAGE_GetColorSpaceType();
{ txType should be equal to csICCBasedCMYK } 
PDF.EndDoc;

// PDF object is supposed to be created
PDF.BeginDoc();
long profile = PDF.LoadICCProfile("EuropeISOCoatedFOGRA27.icc");
PDF.PDFPAGE_SetColorSpace(profile);
TxColorSpaceType txType = PDF.PDFPAGE_GetColorSpaceType();
// txType should be equal to TxColorSpaceType.csICCBasedCMYK
PDF.EndDoc;

' PDF object is supposed to be created
PDF.BeginDoc();
profile = PDF.LoadICCProfile("EuropeISOCoatedFOGRA27.icc")
PDF.PDFPAGE_SetColorSpace profile
txType = PDF.PDFPAGE_GetColorSpaceType()
' txType should be equal to csICCBasedCMYK
PDF.EndDoc

// PDF object is supposed to be created
PDF->BeginDoc();
LONG profile = PDF->LoadICCProfile("EuropeISOCoatedFOGRA27.icc");
PDF->PDFPAGE_SetColorSpace(profile);
TxColorSpaceType txType = PDF->PDFPAGE_GetColorSpaceType();
// txType should be equal to csICCBasedCMYK
PDF.EndDoc;