I suggest change code:

procedure TComComboBox.SetText(const Value: string);
begin
  if Items.IndexOf(Value) > -1 then
  begin
    ItemIndex := Items.IndexOf(Value);
    Change;  // add line,    and begin, end too
  end
end;

I apologize for bad english