Использование WriteProcessMemory

[Ra88]

Пытаюсь записать своё значение по адресу 01A334BD, но в строке WriteProcessMemory... выдаёт ошибку variable required ((( не пойму что не так ((( на форме один компонент Timer. Помогите пожалуйста разобраться с функцией WriteProcessMemory.

procedure TForm1.Timer1Timer(Sender: TObject);
var wnd, hdl, ThreadId, ProcessId, bytesread, WindowName: integer;
begin
WindowName := FindWindow(nil,'Counter-Strike');
If WindowName = 0 then
begin
MessageDlg('Игра не запущена.', mtwarning,[mbOK],0);
end;
// ищу окно игры
wnd := FindWindow(nil, 'Counter-Strike');
// ищу id процесса
ThreadId := GetWindowThreadProcessId(wnd,@Proce ssId);
// открываю процесс с правами записи
hdl := OpenProcess(PROCESS_ALL_ACCESS,Fals e,ProcessId);
// записываю в адрес своё значение
WriteProcessMemory(hdl,pointer($01A 334BD),@90,1,write);
CloseHandle(hdl);
end;