TStringList的AddObject的使用

TStringList有一个AddObject的方法，可以给TStringList对象添加一些附加的信息，可以是任何类型的数据，下面的例子是给TStringList对象添加一个整型

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
  i:integer;
begin
  sl:=TStringList.Create ;
  sl.AddObject('a',TObject(123));
  sl.AddObject('abc',TObject(1323));
  ShowMessage(sl.Strings[1]);
  i:=Integer(sl.Objects[1]);
  ShowMessage(IntToStr(i));
end;