[Edit1]

Сообщение от poli-smen

Код:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  Memo1.Lines.Add('Текст откуда угодно');
end;

Сейчас испробую.