procedure PageListDragDrop(Sender: TObject; Source: TObject; X: Integer; Y: Integer);

This is PageListDragDrop, a member of class TPathEditor.