TColorEvent
type
TColorEvent =
procedure
(Const aColor: TColor)
of object
;
Unit
TeeProcs