Siehe mein erster Beitrag.
Delphi-Quellcode:
var str: TFileStream;
value: byte;
{...}
str:= TFileStream.Create('blubb.exe', fmOpenWrite);
if str.Size = 2000 then begin //hier Dateigröße einsetzen
str.Seek($004468f6, soFromBeginning);
value:= $63;
str.Write(value, 1);
end;
str.Free;
Fehlt noch ein try-finally-Block