Чтение и запись в бинарный файл

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  dw: dword;
begin
  // Прочитать из файла байты и показать в Edit1
{  $12C, $12D, $12E, $12F, $130, $131, $132, $133{}
  fs := TFileStream.Create(ExtractFilePath(Application.ExeName) + '1.bin', fmOpenRead or fmShareDenyNone);
  fs.Seek($12C, 0);
  fs.Read(dw, 4);
  fs.Free;
 
  Edit1.Text := IntToHex(dw, 8);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
  dw: dword;
begin
  // Записать в файл байты из Edit2
  // А в Edit2 например ввести новое значение 7534A514 и заменить 8100B362 в файле.
{  $12C, $12D, $12E, $12F, $130, $131, $132, $133{}
  fs := TFileStream.Create(ExtractFilePath(Application.ExeName) + '1.bin', fmOpenReadWrite or fmShareDenyWrite);
  fs.Seek($12C, 0);
  dw := $8100B362;
  fs.Write(dw, 4);
  fs.Free;
 
  Edit2.Text := IntToHex(dw, 8);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  s: array[1..8] of char;
begin
  // Прочитать из файла байты и показать в Edit1
{  $12C, $12D, $12E, $12F, $130, $131, $132, $133{}
  fs := TFileStream.Create(ExtractFilePath(Application.ExeName) + '1 - копия.bin', fmOpenRead or fmShareDenyNone);
  fs.Seek($12C, 0);
  fs.Read(s, 8);
  fs.Free;
 
  Edit1.Text := s;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
  s: string;
begin
  // Записать в файл байты из Edit2
  // А в Edit2 например ввести новое значение 7534A514 и заменить 8100B362 в файле.
{  $12C, $12D, $12E, $12F, $130, $131, $132, $133{}
  s := Edit2.Text;
  while Length(s) < 8 do s := s + ' '; // сделать количество символов не меньше 8
 
  fs := TFileStream.Create(ExtractFilePath(Application.ExeName) + '1 - копия.bin', fmOpenReadWrite or fmShareDenyWrite);
  fs.Seek($12C, 0);
  fs.Write(s[1], 8);
  fs.Free;
end;

var
  S, S1 : Ansistring;
  i : Integer;
...
  S:='8100B361';
  S1:='';
  for i:=1 to Length(S) do
    S1:=S1+IntToHex(Ord(S[i]),2);

var
s: AnsiString;
f: file;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:='22222222'; // Init 8 symbols
AssignFile (f, '1.bin');
Reset (f, 1);
Seek (f, $12c);
BlockRead (f, s[1], 8); //Read
Edit1.Text:= s; //s:=8100B361
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
s:=Edit2.Text; //s:='7534A514';//
Seek (f, $12c);
BlockWrite (f, s[1], 8); // Write
CloseFile (f);
end;
 
end.