[NumLock]

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text:='Ответ'+ComboBox1.Items[ComboBox1.ItemIndex];
end;