При описании  константы  объектного типа используется тот же
        синтаксис, что и при описании константы типа запись. Значения для
        элементов (компонентов) метода задаваться не могут. С учетом при-
        водимых ранее описаний объектных типов, приведем некоторые приме-
        ры констант объектного типа:

             const
                ZeroPoint: Point = (X: 0; Y: 0)
                ScreenRect: Rect = (A: (X: 0; Y: 0); B: (X: 80; Y: 25);
                CountField: NumField = (X: 5; Y: 20; Len: 4; Name: nil;
                  Value: 0; Min: -999; Max: 999);

             Константы объектного типа,  которые содержат виртуальные ме-
        тоды,  не требуется инициализировать с помощью вызова конструкто-
        ра. Эта инициализация автоматически выполняется компилятором.