Fraccionar contenido de un TEdit

[ecfisa]

Bueno, ahora que Luis te allanó el camino , yo había pensado en algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    ExtractStrings(['-'], [], PChar(StringReplace(Edit1.Text, ' ', '', [rfReplaceAll])), TS);
    ShowMessage(TS.Text);
  finally
    TS.Free;
  end;
end;

Saludos