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