https://wikidelphi.com/تابع-wherex-پاسکال/