Dll инжектинг в Delphi

[Landomeer]

(может ни туда то извиняйте)
Нужна помощь в написании процедуры для инжекции Dll в инете нашел вот такой пример:

function InjectDll(Process:dword; DllPath:PChar):boolean;
var
 Memory:pointer;
 Code:dword;
 BytesWritten:dword;
 ThreadId:dword;
 hThread:dword;
 hKernel32:dword;
 Inject: packed record
          PushCommand:byte;
          PushArgument:DWORD;
          CallCommand:WORD;
          CallAddr:DWORD;
          PushExitThread:byte;
          ExitThreadArg:dword;
          CallExitThread:word;
          CallExitThreadAddr:DWord;
          AddrLoadLibrary:pointer;
          AddrExitThread:pointer;
          LibraryName:array[0..MAX_PATH] of char;
         end;
begin
 Result:=False;
 Memory:=VirtualAllocEx(Process, nil, sizeof(Inject), MEM_COMMIT,
                        PAGE_EXECUTE_READWRITE);
 if Memory = nil
  then
   Exit;
 Code:=dword(Memory);
 Inject.PushCommand        := $68;
 inject.PushArgument       := code + $1E;
 inject.CallCommand        := $15FF;
 inject.CallAddr           := code + $16;
 inject.PushExitThread     := $68;
 inject.ExitThreadArg      := 0;
 inject.CallExitThread     := $15FF;
 inject.CallExitThreadAddr := code + $1A;
 hKernel32:=GetModuleHandle('kernel32.dll');
 inject.AddrLoadLibrary:=GetProcAddress(hKernel32, 'LoadLibraryA');
 inject.AddrExitThread:=GetProcAddress(hKernel32, 'ExitThread');
 lstrcpy(@inject.LibraryName, DllPath);
 WriteProcessMemory(Process, Memory, @inject, sizeof(inject), BytesWritten);
 hThread:=CreateRemoteThread(Process, nil, 0, Memory, nil, 0, ThreadId);
 if hThread = 0
  then
   Exit;
 CloseHandle(hThread);
 Result:=True;
end;

Но она толком работает только когда запускаю процесс к которому нужно подсоединить дополнительную dll, с уже запущенными процессами она уменя очень плохо работает, может кто то знает как ее переделать или у кого то есть процедура для инжекции dll в запущенные процессы.

ps. Нужно для ловли багов. (за доморощеных которые будут использовать функцию для написания вредоносных программ ответственности не несу)