求教，地址函数(15分)

var
a,f :tstringlist;
b :integer;
c ointer;
begin
a := tstringlist.create;
a.text :='123';
b := integer(@a);
c := pointer(b);
f := c;
showmessage(f.text);
end;

上面的不对，应该咋改，有没有地址函数转换可以将它转换成的整形？
请大家帮帮忙

b := integer(@a)
//这句错误，a就是一个指针
b := integer(a)
//这是正确的

晕
var
a,f :tstringlist;
b :integer;
c ointer;
begin
a := tstringlist.create;
a.text :='123';
f := a;
showmessage(f.text);
end;
看程序，要实现这样的效果。
不知道你要干什么。
或者你是要这样的结果
var
a,f :tstringlist;
b :integer;
c ointer;
begin
a := tstringlist.create;
a.text :='123';
b := integer(@a);
c := pointer(b);
f := tstringlist(c^);
showmessage(f.text);
end;

多人接受答案了。