procedure MyProc; var //учимся НЕ юзать глобальные переменные adr:^pointer; objaddr:pointer; begin adr:=getmodulehandle('project25.exe') + $A798; obaddr:=adr^; messagebox(0,PChar(IntToHex(obaddr)),'',0); end;