procedure TForm1.Test(Sender: TObject);
var
  FFile: TFileStream;
  FullName: string;
  i, m, Dlina, Addr: Integer;
  BPoisk: array of Byte; // Динамический массив
  RawString: RawByteString;
  SPSimvol: ansistring;
  PSimvol: Byte;
  BFile: TBytes;
label Err;
begin
  if OpenDialog1.Execute then
  begin
    FullName := OpenDialog1.FileName;
    FFile := TFileStream.Create(FullName, fmOpenRead);
    SetLength(BFile, FFile.Size);
    FFile.ReadBuffer(BFile, FFile.Size);
    FFile.Free;
    SetLength(SPSimvol, 2);
    Addr := 0;
    Dlina := 6;
    for i := 1 to 2 do
    begin
      Memo1.Lines.Add('Prohod-' + IntToStr(i));
      SetLength(BPoisk, Dlina); // Инициируем длину массива

      for m := 0 to Dlina - 1 do // Заполняем массив
      begin
        SPSimvol[1] := AnsiChar(BFile[Addr + m * 2]);
        SPSimvol[2] := AnsiChar(BFile[Addr + m * 2 + 1]);

        PSimvol := StrToInt('$' + SPSimvol);
        BPoisk[m] := PSimvol;
      end;
    Err:
      RawString := RawByteString(BPoisk);
      PInteger(PByte(RawString) - 8)^ := 0;
      Memo1.Lines.Add('Ok');
    end;
  end;
end;