https://wikidelphi.com/متد-overriding-پاسکال-شیگرا/