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