konstanten in kompilierter exe ändern

[Premutos]

habe im inet folgendes beispiel gefunden:

Code:

var s,altstring,neustring:string;
   f:file;
   l:integer;
begin


 s := 'negativ';
 altstring :='negativ';
 neustring:='positiv';
  assignFile(f, 'test.exe');
   reset(f,1);
 for l := 0 to filesize(f)-length(altstring)-1 do
   begin
     Application.ProcessMessages;
    seek(f,l);
      blockread(f,altstring[1],length(altstring));
      if altstring = s then
        begin
       seek(f,l);
         blockwrite(f,neustring[1],length(neustring));
        label1.caption := 'Stelle gefunden und gepatcht!';
      end;
   Application.ProcessMessages;
   end;
 closeFile(f);
end;

das funktioniert prima!
sollte man sonst noch was beachten ?