procedure TForm1.BitBtn1Click(Sender: TObject);var i:integer; s:string;begin for i:=0 to Length(CheckStates)-1 do begin s:=TcxCheckGroupProperties(cxGrid1DBTableView1DBColumn1.Properties).Items.Caption; if CheckStates=cbsChecked then s:=s+' Checked' else if CheckStates=cbsUnChecked then s:=s+' UnChecked'; showmessage(s); end;end;