Source position: ELSizeControl.pas line 58
type TSetCursorEvent = procedure(
Sender: TObject;
Target: TControl;
TargetPt: TPoint;
var handled: Boolean
) of object;