[[egostar]]

Hola

Con Delphi lo haría así:

Código Delphi [-]
  
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  REPEAT
    ComboBox1.Items.Add(Copy(Edit1.Text,1,Pos(' ',Edit1.Text)));
    Edit1.Text := Copy(Edit1.Text,Pos(' ',Edit1.Text)+1,Length(Edit1.Text));
  UNTIL Pos(' ',Edit1.Text) = 0;
  ComboBox1.Items.Add(Edit1.Text);
end;

Tal vez pudiera optimizarse, esto es lo que me permite mi dominio de Delphi.

Salud OS