Считать бинарный файл в массив

[Геннадий]

Имеется бинарный файл. В нём между маркерами заключены блоки информации. Блок это 16строк из 12слов, каждое слово 4байта. Маркер находится в первых двух словах блока (FFFFFFFF FF). Мне необходимо считать информацию в 2-х мерный динамический массив размером 4*12=48байт Х сколько получится строк. Вся проблема в том, что информация в блоке может быть частично сбойной и все 4*12*16=768 байт блока могут и не прописаться. Поэтому надо не прописанную информацию забить нулями до конца блока. Начинаю делать так, на правильность действий не претендую.

procedure TForm1.Button1Click(Sender: TObject);
const
  //Маркер
  Marker = #$FF#$FF#$FF#$FF#$FF#$FF;
var
  Od: TOpenDialog;
  f: file; //файловая переменная
  StrBuff: AnsiString; //Строковый буфер в который загрузим данные из файла
  fCount: Integer; //количество байт
  fPos: Integer; //позиция маркера
  StrRes: AnsiString; //результирующая строка кадра
  ArrPosMar: array of Integer; //д. массив значений позиций маркеров
  LenArrPosMar: integer; //длина д.массива значений позиций маркеров
  ArrStrRes: array of array of string; //2-х мерный д.массив строка кадра
  LenArrStrRes: integer; //длина 2-х мерного д.массив строка кадра
begin

  Od := OpenDialog1;
  if not Od.Execute then
    Exit;
  AssignFile(f, Od.FileName);
  Reset(f, 1);
  SetLength(StrBuff, FileSize(f));
  fCount := FileSize(f);
  BlockRead(f, PChar(StrBuff)^, fCount);
  //закрываем файл.
  CloseFile(f);
  //ищем первый маркер
  fPos := PosEx(Marker, StrBuff, 1);
  //если первый маркер не найден - выходим.
  if fPos = 0 then
  begin
    ShowMessage('Маркер не найден. Действие отменено.');
    Exit;
  end
  else
  begin
    //заводим динамический массив позиций маркеров
    LenArrPosMar := 1;
    SetLength(ArrPosMar, LenArrPosMar);
    ArrPosMar[0] := fPos;
    while fPos <> 0 do
    begin
      fPos := PosEx(Marker, StrBuff, fPos + Length(Marker));
      if fPos <> 0 then
      begin
        inc(LenArrPosMar);
        SetLength(ArrPosMar, LenArrPosMar);
        ArrPosMar[LenArrPosMar - 1] := fPos;
      end;
    end;
    if fPos = 0 then
      ShowMessage('Все маркеры найдены. ');
  end;

И вот теперь мне нужно, пройдя циклом по длине массива маркеров
for i := 0 to LenArrPosMar - 2 do
begin
StrRes := Copy(StrBuff, ArrPosMar[i], ArrPosMar[i + 1] - ArrPosMar[i]);
Сложить результирующие строки в двумерный динамический массив. Помогите с кодом.