Hola, también puedes utilizar un TObjectList.
Código Delphi
[-]
Lista : TObjectList;
var
I: Integer;
Strings: TStringList;
begin
if not Assigned(Lista) then
Lista := TObjectList.Create;
for I := 0 to Pred(Memo1.Lines.Count) do
begin
Strings := TStringList.Create;
Lista.Add(Strings)
end
Lista.Free;
Saluditos