简单的类型转换，在线等待。

Question

var i:Integer;0D
    p: Pointer;
begin
    i := 10;
    p := @i;
    //ShowMessage(IntToStr(Integer(p^)));
    //使用p的值用： Integer(p^)
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

type 
    pointer=^integer;
var i:Integer;0D
    p: Pointer;i := 10;
p := @i;

Answer 2

var
  I:Integer;
  P:Pointer;  I:=10;
  P:=&I;