TObjectList y TStringList

[esquerda21]

He conseguido introducirlo pero...
-------------------- soc : TStringLIst
var
indice: integer;
i: integer;
temp: TStringLIst;
begin
I:= 0;
indice:= soc.AddObject('0', TStringLIst.create());
temp:= soc.Objects[indice] as TStringList;
while i <> 5 do
begin
temp.Add(inttostr(i + 10));
i:= i + 1;
end;
-----------------
Como hago para representarlo en un listbox? algo así..

form1.ListBox1.Items.Add(TstringList(soc[0]objects[0].strings[0]);??