procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text := ComboBox1.Items[ComboBox1.ItemIndex];
end;