Source position: treegrids.pas line 2068
type TTGCreateDragManagerEvent = procedure(
Sender: TBaseTreeGrid;
out DragManager: IVTDragManager
) of object;