#pas
procedure THIComboBox._work_doEditTextNoEvents;
begin
  Control.Caption := ToString(_Data);
  keybd_event(35,0,0,0); 
  keybd_event(35, 0, 2, 0); 
end;