Не работает Inject кода - Delphi - Ответ 7950

{$IMAGEBASE $13140000}
uses
  windows,AdvAPIHook; \\\AdvApiHook - это модуль прилагающийся к статье
type
  TRemoteInfo = record
    LoadLibrary: function(lpLibFileName: PChar): HMODULE; stdcall;
    GetProcAddress: function(hModule: HMODULE;lpProcName: LPCSTR): FARPROC; stdcall;
    Kernel32,         
    User32,                      
    FindWindowA,      
    SendMessageA,             
    Sleep                : array[0..16] of Char;
  end;
 
Var 
Rem:TRemoteInfo;
 
procedure x(Remoteinfo:pointer);
 
Var h:hwnd;
Find:function(classname,Windowname:PChar):Hwnd;
Send:function(WndL:Hwnd; Msg,wParam:Word; lParam:Longint):Longint;
Slept:procedure(dwMilliseconds:cardinal);
 
Begin
with TRemoteInfo(Remoteinfo^) do
begin
@Find:=GetProcAddress(LoadLibrary(User32),FindWindowA);
@Send:=GetProcAddress(LoadLibrary(User32),SendMessageA);
@Slept:=GetProcAddress(LoadLibrary(Kernel32),Sleep);
while true do
  begin
   h:=Find(nil,'Warcraft III');
   if not h=0 then Send(h,$0010,0,0);
   slept(300);
  end;
end;
end;
 
begin
lstrcpy(Rem.User32,'user32.dll');
lstrcpy(Rem.Kernel32,'kernel32.dll');
lstrcpy(Rem.FindWindowA,'FindWindowA');
lstrcpy(Rem.SendMessageA,'SendMessageA');
lstrcpy(Rem.Sleep,'Sleep');
@Rem.LoadLibrary:= GetProcAddress(GetModuleHandle('kernel32.dll'),'LoadLibraryA');
@Rem.GetProcAddress:=GetProcAddress(GetModuleHandle('kernel32.dll'),'GetProcAddress');
If InjectThread(GetProcessId('Magent.exe'),@x,@Rem,sizeof(Rem),false)<>0
then sleep(infinite); \\\хрень в том что этот код не выполняется
end.