[lmikle]

после открытия сдвинуться на $9E и считать 1 байт, который сравнить с константой.

Код:

var
  B : Byte;
...
FStreamIn:= TFileStream.Create(String(FileName),fmOpenRead);
FStreamIn.Seek($9E,soFromBeginning);
FStreamIn.ReadBuffer(B,SizeOf(Byte);
If (B = $01) Or (B = $02) Then ...