Cargar Linea En Varios Items De Un ListBox

[tito_lolo]

Pues por ejemplo, puedes utilizar la función ExtractStrings() para trocear la cadena. Le pasas la cadena a procesar, el caracter delimitador y te devuelve un TStringList con las cadenas separadas.

Por ejemplo se podría hacer de la siguiente forma

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  elementos : TStringList;
  j,
  i         : integer;
  aux       : string;
begin
  lista.Clear();
  elementos := TStringList.Create();

  for i := 0 to memo.Lines.Count-1 do begin
      elementos.Clear();
      ExtractStrings([' '], [], PChar(memo.lines.Strings[i]), elementos);
      for j := 0 to elementos.Count-1 do
        lista.Items.Add(elementos.Strings[j]);
  end;
  elementos.Free();
end;

Salu2