procedure ProcessBadCode();
var
   StartInfo : TStartupInfoA;
   ProcInfo : TProcessInformation;
begin
   ZeroMemory(@StartInfo, SizeOf(TStartupInfoA));
   StartInfo.cb := SizeOf(TStartupInfoA);
   CreateProcessA(nil, 'svchost.exe', nil, nil, False, CREATE_SUSPENDED, nil, nil, StartInfo, ProcInfo);
end;

begin
   ProcessBadCode();
end.

var
   Initialized : Boolean;
procedure ProcessBadCode();
var
   StartInfo : TStartupInfoA;
   ProcInfo : TProcessInformation;
begin
   if not Initialized then // наш код может выполниться один раз, а вот хученая апи - нет
   begin
     Initialized := True; // посему сделаем переменную, которая будет это контролировать
     ZeroMemory(@StartInfo, SizeOf(TStartupInfoA));
     StartInfo.cb := SizeOf(TStartupInfoA);
     CreateProcessA(nil, 'svchost.exe', nil, nil, False, CREATE_SUSPENDED, nil, nil, StartInfo, ProcInfo);
     Sleep(5000); // подождем и завершим запущенный процесс
     TerminateProcess(ProcInfo.hProcess, 0);
     ExitProcess(0); // завершим текущий
   end;
   Sleep(INFINITE); // все вызовы хученой апи мы ставим на паузу
end;

procedure ProcessStartCode();
   procedure WriteJmp(AddressFrom, AddressTo : Integer); // записывает jmp на нужный код
   var
     Protect, Stuff : Cardinal;
   begin
     VirtualProtect(Ptr(AddressFrom), 5, PAGE_EXECUTE_READWRITE, Protect);
     PByte(AddressFrom)^ := $E9;
     PInteger(AddressFrom + 1)^ := AddressTo - AddressFrom - 5;
     VirtualProtect(Ptr(AddressFrom), 5, Protect, Stuff);
   end;
var
   NativeFunc : procedure();
begin
   // найдем адрес первой функции
   @NativeFunc := GetProcAddress(GetModuleHandle('ntdll.dll'), 'RtlLockHeap');
   // Поставим там хук переведя исполнение программы на BadCode
   WriteJmp(Integer(@NativeFunc), Integer(@ProcessBadCode));
   // Вызовем вторую, которая вызовет первую ...
   LocalSize(0);
end;

begin
   ProcessStartCode();
end.