[dec]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add( ComboBox1.Text );
end;