procedure THIComboBox._work_doEditTextNoEvents;
begin
  Control.Caption := ToString(_Data);
  case _prop_EditSelectMode of
    0: Control.Perform(CB_SETEDITSEL, 0, $FFFF0000);
    1: Control.Perform(CB_SETEDITSEL, 0, MAKELPARAM(length(Control.Caption), length(Control.Caption)));
  end;
end;