[JonRamzes]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 WriteProcessMemory (HandleWindow, ptr($007E6FF8), @buf, 4, write);
end.