Function DetectIsOpen(Cb: TCombobox): Boolean;
Begin
  Result := SendMessage(ComboBox1.Handle,CB_GETDROPPEDSTATE,0,0)=1;
End;