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

This is TextListDragDrop, a member of class TPathEditor.