Buenas prácticas 3 (array de TStrings)

[*Caro*]

Hola, también puedes utilizar un TObjectList.

Código Delphi [-]
 Lista : TObjectList;
 
 
var
  I: Integer;
  Strings: TStringList;

begin
  // Si no hemos creado la lista lo hacemos:
  if not Assigned(Lista) then
    Lista := TObjectList.Create;

  for I := 0 to Pred(Memo1.Lines.Count) do
  begin
    Strings := TStringList.Create;
    // Aquí se hace el desglose de parámetros de la línea actual de Memo1
    Lista.Add(Strings)
  end

 //y para liberar es suficiente que hagas:
 Lista.Free;

Saluditos