[supernewbie]

library path;

uses
  SysUtils,
  Windows,
  Classes;
var
ID, ThrHandle: Cardinal;
adr:Cardinal;
objaddr:Pointer;
otheri1:^cardinal;

procedure MyProc;
begin
adr:=getmodulehandle('project25.exe') + $A798;
otheri1:=@adr;
//messagebox(0,PChar(IntToHex(objaddr,8)),'',0);
messagebox(0,PChar(IntToStr(otheri1^)),'',0);
end;
{$R *.res}

begin
  messagebox(0,'pause','',0);
  ThrHandle:=CreateThread(nil,0,@MyProc,nil,0,id);
end.