procedure IncludeBtnClick(Sender: TObject);

This is IncludeBtnClick, a member of class TPathEditor.