https://ruclips.ru/en/watch/HyOkgj4tXjA/learning-pascal-x28-forms-and-controls-as-objects