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

This is PageListDragOver, a member of class TPathEditor.