var
  hProces : THandle;
  xxd : size_t;
  adresDoZapisania : integer;
  znaki : array[0..10] of Byte;
 begin
   .
   .
   .
    adresDoZapisania:=xxx;// uzyskany poprzez skanowanie pamieci
    znaki[0]  := $B3;
    znaki[1]  := $AA;
    znaki[2]  := $B4;
    znaki[3]  := $C2;
    znaki[4]  := $20;
    znaki[5]  := $C7;
    znaki[6]  := $D1;
    znaki[7]  := $B1;
    znaki[8]  := $B9;
    znaki[9]  := $C0;
    znaki[10] := $CE;
    WriteProcessMemory(hProces, Pointer(adresDoZapisania), @znaki,SizeOf(znaki), xxd);
    closehandle(hProces);
 end;