Source position: cyColorGrid.pas line 76
type TProcOnBoxClick = procedure(
Sender: TObject;
aRow: Integer;
aCol: Integer;
aColor: TColor
) of object;