procedure ExcludeBtnClick(Sender: TObject);

This is ExcludeBtnClick, a member of class TPathEditor.