procedure ExAllBtnClick(Sender: TObject);

This is ExAllBtnClick, a member of class TPathEditor.