TUserCheckBoxImageEvent

type TUserCheckBoxImageEvent = procedure(

  Sender: TObject;

  const aCol: Integer;

  const aRow: Integer;

  const CheckedState: TCheckBoxState;

  var ImageList: TCustomImageList;

  var ImageIndex: TImageIndex

) of object;