TcxValueToCheckStatesEvent = procedure(Sender: TObject; const AValue: TcxEditValue; var ACheckStates: TcxCheckStates) of object;