Редактирование памяти процесса

[Dima DDM]

Подскажите что я делаю не так ???
Память не переписыватеся!!! и ничего не изменяется(((

var
hwin:HWND;
hProcess:HWND;
PrcResult:WORD;
PID:DWORD;
s:Cardinal;
HandleWindow:integer;
 buf:PCHAR;
 write          : cardinal;
const
PokeValue=$5E5F0FF;
 Address=$02A73D91 {0094ADD{O};
 NumberOfBytes=1;
 begin

 hwin:=FindWindow(nil, 'заголовок искомой проги');
  SendMessage(hwin,WM_SETTEXT,0,lparam(LPCTSTR('Заголовок моей проги')));

 GetWindowThreadProcessid(hwin,@PID);
HandleWindow:=OpenProcess(PROCESS_ALL_ACCESS,false,PID);
 GetMem(buf,1);
 buf^:=Chr(PokeValue);
 WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
 FreeMem(buf);
 CloseHandle(HandleWindow);
 end.     //money         0094ADDO