1:
2:
3:
4:
5:

asm  
  mov eax, [$00401111]     <- fixe adresse, an der steht immer $6152C50 die kann aber auf jedem PC anders sein  
  mov eax, [eax]           // $6152C50  <- hier wird mit deiner adresse weitergerechnet  
  add [eax], $10           // $10 addieren  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

..
var
s: String;
..
begin
..
s:= '$123456';
WriteProcessMemory(HandleWindow,Pointer(s),buf,1,write);
..					

1:
2:
3:
4:
5:

..
begin
..
WriteProcessMemory(HandleWindow,Ptr($123456),buf,1,write);
..					

1:
2:
3:
4:
5:

var i:integer;
begin
  i:=$123456;
  WriteProcessMemory(HandleWindow,Pointer(i),buf,1,write);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

..  
var  
s: String;  
..  
begin  
..  
s:= '$123456';  
WriteProcessMemory(HandleWindow,Pointer(strtoint(s)),buf,1,write);  
..					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function WriteProcess(Title: String; Address, PokeValue:Integer): Boolean;
begin
Result := True;
WindowName  :=  FindWindow(nil,PCHAR(Title));
          If  WindowName  =  0  then Result := False;
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    GetMem(buf,1);
    randomize;
    buf^  :=  Chr(PokeValue);
 WriteProcessMemory(HandleWindow,ptr(Address),buf,1,write);
 FreeMem(buf);
 closehandle(HandleWindow);
end;

...

WriteProcess('Diablo II', $9F6D17, $01);
WriteProcess('Diablo II', $9F6D18, $00);
WriteProcess('Diablo II', $9F6D19, $00);

...					

1:
2:
3:
4:
5:
6:
7:

...

WriteProcess('Diablo II', $9F6D17, $90);
WriteProcess('Diablo II', $9F6D18, $90);
WriteProcess('Diablo II', $9F6D19, $90);

...