TBandMoveEvent = procedure (Sender: TObject; Control: TControl; var ARect: TRect) of object;
(Sender: TObject; Control: TControl; var ARect: TRect) ( TBandMoveEvent)();
ExtCtrls
This is type ExtCtrls.TBandMoveEvent.