Borland и RAD10 XE3

[Dimedrol1536]

Проблема в том, что один и тот-же код на Borlande работает, а на RAD10 XE3 нет.
Думаю что вся проблема в WriteProcessMemory, т.к. 5-й параметр отличается, в Боланде он Cardinal, а в РАДе как Size_t.

procedure InjectDll(TargetId: Cardinal; DllName: PAnsichar);
var
  BytesWrite    :Size_t;
  ParamAddr     : pointer;
  pThreadStart  : pointer;
  Hdl           : cardinal;
  hThread       : cardinal;
  hRemoteThread : Cardinal;
begin
  ChangePrivilege('SeDebugPrivilege', True);
  Hdl := OpenProcess(PROCESS_ALL_ACCESS, false, TargetId);
  ParamAddr := VirtualAllocEx(Hdl, nil, Length(DllName), MEM_COMMIT or MEM_RESERVE,PAGE_EXECUTE_READWRITE);
  WriteProcessMemory(Hdl,  ParamAddr, PAnsichar(DllName), Length(DllName), BytesWrite);
  pThreadStart := GetProcAddress(GetModuleHandle('KERNEL32.DLL'), PAnsiChar('LoadLibraryA'));
  hThread  := CreateRemoteThread(Hdl, nil, 0, pThreadStart, ParamAddr, 0,hRemoteThread);
  WaitForSingleObject(hThread, INFINITE);
  Closehandle(hThread);
end;

[scitelz]

del