{自定义过程}
procedure MyProc;
begin
  ShowMessage('ok');
end;

{自定义函数}
function MyFun: string;
begin
  Result := 'ok';
end;

{读取它们的指针}
procedure TForm1.Button1Click(Sender: TObject);
var
  p: Pointer;
begin
  p := @MyProc;
  ShowMessage(IntToStr(Integer(p))); {4570984; 这是动态的}

  p := @MyFun;
  ShowMessage(IntToStr(Integer(p))); {4571008; 这是动态的}
end;