procedure TextListDragOver(Sender: TObject; Source: TObject; X: Integer; Y: Integer; State: TDragState; var Accept: Boolean);

This is TextListDragOver, a member of class TPathEditor.