dxCheckGroupBox - The CheckBox.Checked property value is not updated when the OnClick event fires

I have a cxCheckGroupBox and am using the OnClick event to see when the checkbox is getting set. In the OnClick event, I have the following:

Delphi
procedure TIC9100.CreateSubClassClick(Sender : TObject);  
begin  
  inherited;  
//  CreateSubClass.Update;  
  if CreateSubClass.CheckBox.Checked then  
    ToastMsg('CheckGroupBox', 'True')  
  else  
    ToastMsg('CheckGroupBox', 'False');  

  if CreateSubClass.CheckBox.Checked then  
    begin  
      AllSubClasses.Checked := False;  
      lblSubClass.Enabled   := False;  
      SCUseDefault.Enabled  := False;  
      SCDefault.Enabled     := False;  
    end  
  else  
    begin  
      lblSubClass.Enabled  := true;  
      SCUseDefault.Enabled := true;  
      SCDefault.Enabled    := true;  
    end;  
end;  

I added the test to display the state of the Checkbox.Checked state and then enable or disable other controls. The problem is, when the checkbox is not checked and I click the checkgroupbox, the test says that the checkbox is NOT checked and then promptly checks the box on the dialog. It's like it is firing the OnClick event before updating the internal state of the Checkbox.Checked boolean. I could put an "Application.processmessages" inside the beginning of the event, but that seems like a hack. Is this the way it should work?