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

...
var
  Form1: TForm1;
  basis1,basis2,Result:pointer;
  bytes:dword;
  Wert:integer;
  WindowTitle : pansichar;
  WindowName, ThreadID, ProcessID, HandleWindow : integer;

...
Basis1:=ptr($0092969c);

WindowTitle:='...';
WindowName:=findwindow(nil,WindowTitle);
ThreadID:=getwindowthreadprocessid(WindowName,@processid);
HandleWindow:=OpenProcess(Process_all_access,false,processid);
readprocessmemory(handlewindow,Basis1,@Basis2,4,bytes);
closehandle(handlewindow);

Result:=Basis2+1908; //----Hier steckt der Wurm!

HandleWindow:=OpenProcess(Process_all_access,false,processid);
readprocessmemory(handlewindow,result,@Wert,4,bytes);
closehandle(handlewindow);

showmessage(inttostr(Wert));					

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

Result := Pointer(UINT_PTR(Basis2) + 1908);

// Oder

Result := Basis2;
Inc(PByte(Result), 1908);