[destructor]

procedure MyProc;
var //учимся НЕ юзать глобальные переменные
   adr:^pointer;
   objaddr:pointer;

begin
  adr:=getmodulehandle('project25.exe') + $A798;
  obaddr:=adr^;

  messagebox(0,PChar(IntToHex(obaddr)),'',0);
end;

помоему так