procedure TForm1.Button1Click(Sender: TObject);
var Marta:TStrings;
begin
 Marta := TStringsList.Create; // vytvoření
 Marta :=ListBox1.Items; // výsledky do Tstrings
 showmessage('Soubor číslo 13: '+Marta[12]); // a pracuješ s tim jako s normálním polem
 showmessage(ListBox1.Items[12]);
 Marta.Free;  //uvolnění
end;