// На вход передаем dwProcessId - идентификатор процесса,
// в который требуется внедрить dll с именем lpModName
function InjectLibByRemoteThread(dwProcessId: DWORD; lpModName: PChar): Boolean;
var
 l_hProcess: THandle;
 l_hThread: THandle;
 l_ThreadFunc: TFNThreadStartRoutine;
 l_ThreadId: DWORD;
 l_iLength: Cardinal;
 l_pBuffer: PChar;
 l_NumberOfBytesWritten: DWORD;
begin
 Result := False;
 l_hProcess := OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_OPERATION or
   PROCESS_VM_WRITE, False, dwProcessId);
 if l_hProcess = 0 then Exit;
 try
   l_ThreadFunc := GetProcAddress(GetModuleHandle(kernel32), 'LoadLibraryA');
   if not Assigned(l_ThreadFunc) then Exit;
   l_iLength := Length(lpModName);
   l_pBuffer := VirtualAllocEx(l_hProcess, nil, l_iLength + 1,
     MEM_COMMIT, PAGE_READWRITE);
   if not Assigned(l_pBuffer) then Exit;
   try
     if not WriteProcessMemory(l_hProcess, l_pBuffer, lpModName, l_iLength,
       l_NumberOfBytesWritten)
     then Exit;
     l_hThread := CreateRemoteThread(l_hProcess, nil, 0, l_ThreadFunc,
       l_pBuffer, 0, l_ThreadId);
     Result := l_hThread <> 0;
     if Result then begin
       WaitForSingleObject(l_hThread, INFINITE);
       CloseHandle(l_hThread);
     end;
   finally
     VirtualFreeEx(l_hProcess, l_pBuffer, 0, MEM_RELEASE);
   end;
 finally
   CloseHandle(l_hProcess);
 end;
end;

// На вход передаем dwProcessId - идентификатор процесса,
// из которого требуется выгрузить dll с именем lpModName
function WithdrawLibByRemoteThread(dwProcessId: DWORD; lpModName: PChar): Boolean;
var
 l_hProcess: THandle;
 l_hThread: THandle;
 l_ThreadFunc: TFNThreadStartRoutine;
 l_ToolHelp: TToolHelp;
 l_me: TModuleEntry32;
 l_ThreadId: DWORD;
begin
 Result := False;
 l_hProcess := OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_OPERATION or
   PROCESS_VM_WRITE, False, dwProcessId);
 if l_hProcess = 0 then Exit;
 try
   l_ThreadFunc := GetProcAddress(GetModuleHandle(kernel32), 'FreeLibrary');
   if not Assigned(l_ThreadFunc) then Exit;
   // Найдем внедренную библиотеку в целевом процессе
   l_ToolHelp := TToolHelp.Create(TH32CS_SNAPMODULE, dwProcessId);
   try
     l_me.dwSize := SizeOf(TModuleEntry32);
     if not l_ToolHelp.ModuleByNameFind(lpModName, l_me) then Exit;
     l_hThread := CreateRemoteThread(l_hProcess, nil, 0, l_ThreadFunc,
       Pointer(l_me.hModule), 0, l_ThreadId);
     Result := l_hThread <> 0;
     if Result then begin
       WaitForSingleObject(l_hThread, INFINITE);
       CloseHandle(l_hThread);
     end;
   finally
     l_ToolHelp.Free;
   end;
 finally
   CloseHandle(l_hProcess);
 end;
end;

WaitForSingleObject(l_hThread, INFINITE);

цикл:
push ebx

условие 1:
call ebx // перехваченная функция

... прочие условия

условие N:
call FreeLibrary

pop ebx
cmp ...
jmp nz, цикл