procedure TForm1.Button1Click(Sender: TObject);

var

  str: string;

  p: Pointer;

begin

  p := @str;  //变量 str 的地址

  p := @Form1;  //变量 Form1 的地址

  p := @TForm1.Button1Click;  //过程 TForm1.Button1Click 的地址

  p := Addr(str);  //同 p := @str;

  ShowMessage(IntToStr(Integer(p)));  //显示

end;

//例2：

procedure TForm1.Button1Click(Sender: TObject);

var

  i1,i2: Integer;

  pi: ^Integer;

begin

  i1 := 6;

  pi := @i1;

  if pi<>nil then i2 := pi^;

  //if Assigned(pi) then i2 := pi^;  //等价与上一句

  ShowMessage(IntToStr(i2));  //返回：6

end;