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