Como Enviar desde combox a un memo!!

[dec]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ComboBox1.ItemIndex = 0 then
    Memo1.Lines.Add( 'hola' )
  else
    Memo1.Lines.Add( ComboBox1.Text );
end;