Source position: dbgrids.pas line 99
type TMovedEvent = procedure(
Sender: TObject;
FromIndex: Integer;
ToIndex: Integer
) of object;