procedure TForm1.Button1Click(Sender: TObject);
var
Pointer;
I: Integer;
begin
ShowMessage(IntToStr(integer(@P)));//取得指针的指针
I := 2;
P := @I;//把变量I的指针付给指针变量P
ShowMessage(IntToStr(integer(@I)));//显示变量I的指针;
ShowMessage(IntToStr(integer(@P^)));//这就证明了指针变量P指向变量I的指针
end;