Source position: colordialog.inc line 25
type TColorPickedEvent = procedure(
Sender: TObject;
const AMousePos: TPoint;
const AColor: TfpgColor
) of object;