[Alexius]

Нужно реализовать запись в файл информация в котором будет хранится в двоичном коде, то есть bin файл. Реализовать это нужно так что бы записывалась HEX последовательность - 1 байт - NNh. Для этого был выбран нетипизированный файл. То есть "File1: File;"
как указано в примере использовалась процедура
BlockWrite(); Все на первый взгляд работает, но на самом деле в этот файл записывается нечто другое, а именно абсолютно не те байты, что нужно. Хотя при обратном считывании данные идентичны с записываемыми.
Похоже не корректно работает BlockWrite();
Задача состоит в том что бы записывалось все именно в первоначальной HEX последовательности, так как это прошивка для чипа.
Помогите разобратся. Далее привожу исходник:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var f:File;
     i:Byte;
     Ti,To:String;
begin
Ti:='';
To:='FF';
AssignFile(F,'c:\92.bin');
Rewrite(F,1);
BlockWrite(F,To,1);
CloseFile(F);
Reset(F,1);
BlockRead(F,Ti,1)
CloseFile(F);
Label1.Caption:=To;
Label2.Caption:=Ti;
End;