[Dmitry_DM]

Вот для примера то, что это дело не любит:

Код:

{$IFELSE}
      if not (Frame.ID[1] in ['A'..'Z']) then
{$IFEND}
	Break;

вместо этого оно хочет

Код:

{$ELSE}
      if not (Frame.ID[1] in ['A'..'Z']) then
{$END}
	Break;

Или вот еще:

Код:

St := ChangeFileExt(ExtractFileName(UTF8ToAnsiEx(OpenFile, CP_ACP)), '')

тут ему не нравиться UTF8ToAnsiEx
еще ему пагубно не нравиться такая строчка:

Код:

FreeMem(BI, SizeOf(TBitmapInfo));