TBeginBandMoveEvent = procedure (Sender: TObject; Control: TControl; var AllowMove: Boolean) of object;
(Sender: TObject; Control: TControl; var AllowMove: Boolean) ( TBeginBandMoveEvent)();
ExtCtrls
This is type ExtCtrls.TBeginBandMoveEvent.