Патчинг файла

[fucil]

Доброго времени суток !
Возникла некая проблема в патчинге файла.

1) Есть файл 1.exe с кодом

var
  Form1: TForm1;
  signature:string='signature';
  _name:string='0000000000'; //для дебага что бы не потерялась сигнатура))
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
ShowMessage('Hello '+'signature);
end;

задача была следующая найти строку signature в файле 1.exe и поменять на свою, казалось бы все просто но, возникла следующая бага. Патчатся лишнее байты !!!!

скрин до
скрин после

сам код программы патча:

procedure patch;
var
 FileName, oldstring, newstring, s: string;
 f: file;
 l: Longint;
 go:boolean;
begin
 FileName := '1.exe';
 oldstring := 'signature';
 newstring := '111111111';
 s := oldstring;
 AssignFile(f, FileName);
 Reset(f, 2);
 l:=0;
 go:=true;
 while (l<=(FileSize(f) - Length(oldstring) - 1)) and go do
  begin
   Seek(f, l);
   BlockRead(f, oldstring[1], Length(oldstring));
   if oldstring = s then
    begin
     seek(f, l);
     BlockWrite(f, newstring[1], Length(newstring));
     go:=false;
    end;
   inc(l);
  end;
 CloseFile(f);
end;

В чем проблема ? уже не знаю что и придумать, по коду все гуд а затрагивает лишнее !

[Arigato]

Reset(f, 2); - а с чего вдруг размер записи равен двум?

[fucil]

Сообщение от Arigato

Reset(f, 2); - а с чего вдруг размер записи равен двум?

ЛОЛ я прочитал это так: открываем файл как двоичный для записи в него (Reset(f, 2) (одну запись определяем как два байта)
Я ещё и думал что не может быть, но нужное патчило правильно, вот и не трогал. СПС все ок!