整数指针

var
  t,i:Integer;
  P: Pointer;
begin
  i := 100;
  T := Cardinal(@i);
  P := Pointer(T);
  ShowMessage(IntToStr(Pinteger(P)^));  //转为整型指针再还原
end;