A:
implementation
type
pLongInt = ^LongInt;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
t: tlist;
l: longint;
begin
t := tlist.create;
l := 123;
t.add(@l);
caption := IntToStr(pLongInt(t.items[0])^);
t.free;
end;