Source position: mbColorPalette.pas line 52
type TCellClickEvent = procedure(
Button: TMouseButton;
Shift: TShiftState;
Index: Integer;
AColor: TColor;
var DontCheck: Boolean
) of object;