https://wikidelphi.com/پروسیجر-delete-پاسکال/