[supernewbie]

procedure MyProc;
var
adr:pointer;
objaddr:^integer;
buf:cardinal;
i:^integer;
begin
  messagebox(0,'pause','',0);
  adr:=pointer( getmodulehandle('project25.exe') + $A798);
  objaddr:=pointer(adr^);
  messagebox(0,PChar(IntToHex(integer(objaddr),8)),'',0);
  messagebox(0,PChar(IntToHex(integer(objaddr^),8)),'',0);
  objaddr^:=0;
  messagebox(0,PChar(IntToHex(integer(objaddr^),8)),'',0);
end;