Source position: extctrls.pp line 1343
type TBandMoveEvent = procedure(
Sender: TObject;
Control: TControl;
var ARect: TRect
) of object;