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