Source position: treegrids.pas line 2030
type TTGHeaderDraggedEvent = procedure(
Sender: TTGHeader;
Column: TColumnIndex;
OldPosition: Integer
) of object;