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