Source position: stdctrls.pp line 248
type TDrawItemEvent = procedure(
Control: TWinControl;
Index: Integer;
ARect: TRect;
State: TOwnerDrawState
) of object;