unit Main_Module;

interface

uses
  Winapi.Windows,  System.SysUtils, System.Classes,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TMainForm = class(TForm)
    OpenDialog: TOpenDialog;
    btnStart: TButton;
    btnOpenFile: TButton;
    edtOpenFile: TEdit;
    Memo: TMemo;
    procedure btnOpenFileClick(Sender: TObject);
    procedure btnStartClick(Sender: TObject);

  private
    { Private declarations }
    FullFileName: String;     // Полное имя файла
    FBin: TFileStream;
  public
    { Public declarations }
  end;
var
     MainForm: TMainForm;

implementation

{$R *.dfm}

//==================== Процедура открытия БИН-файла ============================
procedure TMainForm.btnOpenFileClick(Sender: TObject);
begin
     if OpenDialog.Execute then FullFileName := OpenDialog.FileName;
          try
               FBin:=TFileStream.Create(FullFileName, fmOpenRead);
               edtOpenFile.Text := FullFileName;
          finally
               FBin.Free;
          end;
end;
//================= Конец процедуры открытия БИН-файла =========================

//======================== Процедура Поиска и Замены ===========================
procedure TMainForm.btnStartClick(Sender: TObject);
var
MBin: TMemoryStream;     // файл in Memory
SizeFile: Dword;         // Длина файла
pCurrent: Pointer;
P: PChar;
const
Poisk: array[0..5] of Byte = ($00, $31, $32, $33, $34, $00);    // массив Поиска
Zamena: array[0..5] of Byte = ($00, $35, $36, $37, $38, $00);   // массив Замены
begin
     try
          FullFileName := edtOpenFile.Text; // Считываем имя файла
          MBin:=TMemoryStream.Create;
          MBin.LoadFromFile(FullFileName);
          SizeFile := MBin.Size;
//-------------------- Код поиска и замены ------------------------------
     pCurrent := MBin.Memory; //  адрес в памяти
     P := PChar(pCurrent);
     //while  Integer(pCurrent) + SizeOf(Poisk) < SizeBinFile do
     while  P <= (PChar(pCurrent) + SizeFile - length(Poisk)) do
          begin
               if CompareMem(P, @Poisk[0], length(Poisk)) then
                    begin //---- Найдено совпадение ----
                         CopyMemory(P, @Zamena[0], length(Poisk)); // Копируем Замену вместо Поиска
                         P := P + length(Poisk); // Коррекция на длину Поиска, чтоб искать дальше
                    end
               else
                    begin //---- Нет совпадения ---------
                         inc(P); // продолжаем дальше искать по файлу
                    end;
          end;
//-----------------------------------------------------------------------
     finally
          MBin.SaveToFile(FullFileName); // Пишем МЕмори в файл
          FreeAndNil(MBin);
     end;
end;
//===================== Конец процедуры Поиска и Замены ========================
end.

P: PChar;

//P: PChar;
P: PByte;
...
//P := PChar(pCurrent);
P := PByte(pCurrent);

while  P <= (PChar(pCurrent) + SizeFile - length(Poisk)) do

PChar(pCurrent)

PByte(pCurrent)

//==================== Процедура открытия БИН-файла ============================
procedure TMainForm.btnOpenFileClick(Sender: TObject);
begin
     if OpenDialog.Execute then FullFileName := OpenDialog.FileName;
          try
               FBin:=TFileStream.Create(FullFileName, fmOpenRead);
               edtOpenFile.Text := FullFileName;
          finally
               FBin.Free;
          end;
end;
//================= Конец процедуры открытия БИН-файла =========================