https://dynamicusing.pythonprogramminghelp.com/how-to-my-object-pascal-advice-to-object-pascal/