procedure TForm1.ComboBox1DblClick(Sender: TObject);
begin
Combobox1.Text:='AHOJ';
Combobox1.SelStart := Length(ComboBox1.Text);
end;procedure TForm1.Edit1DblClick(Sender: TObject);
begin
Edit1.Text:= 'AHOJ';
Edit1.SelStart := Length(Edit1.Text);
end;