Thread: [Delphi] Memory Modification Tutorial & Template

As I say you need base address + offset

And one fucntion which may help you:

Code:

 function GetAddyfrmpointer(baseaddress:dword;offset:dword):dword; 
var 
	a: dword; 
	x: dword; 
	i: integer; 
	offsetcount: integer; 
	offsets:array of dword; 
	b:integer; 
	maxid:integer; 
begin 
	offsetcount:=1; 
	b:=0; 
	setlength(offsets,1); 
	offsets[b]:=offset; 
	a:=baseaddress; 
	i:=0; 
	while (i<offsetcount) do 
		begin 
			if not readprocessmemory(processhandle,pointer(a),@a,4,x) then exit; 
			inc(a,offsets[i]); 
			inc(i); 
			result:=a 
		end; 
end;

and then you can use it like this:

Code:

 real_address:=GetAddyfrmpointer($your_base,$your_offset);