[lmikle]

Не, запрашивать надо 6 (моя ошибка, невнимательно посмотрел), а функцию тоже надо поправить, что бы она проверяла кол-во байт, которое указано в последнем элементе массива. Или массив по другому организовать, например как-то так:

Код:

type
  TFormatSample = record
     CheckLength : Integer;
     Sample : Array [0..5] Of Byte;
  end;

const
  THeaderFile	: array[0..11] of TFormatSample = (
  {BMP}	        CheckLength: 2; Sample: ($42, $4D,   0,   0,   0,   0),
                        ...);

Ну и функцию соотв. образом поправить.