Описание константы  ссылочного  типа  может содержать только
        значение nil (пусто). Приведем несколько примеров:

             type
                TDirection = (Left, Right, Up, Down);
                TStringPtr = ^String;
                TNodePtr = ^Node;
                TNode = record
                          Next: NodePtr;
                          Symbol: StringPtr;
                          Value: Direction;
                        end;
             const
                  S1: string[4] = 'DOWN';
                  S2: string[2] = 'UP';
                  S3: string[5] = 'RIGHT';
                  S4: string[4] = 'LEFT';
                  N1: Node = (Next: nil; Symbol: @S1; Value: Down);
                  N2: Node = (Next: @N1; Symbol: @S2; Value: Up);
                  N3: Node = (Next: @N2; Symbol: @S3; Value: Right);
                  N2: Node = (Next: @N3; Symbol: @S4; Value: Left);
                  DirectionTable: NodePtr = @N4;

             Если разрешен расширенный синтаксис (указана директива  ком-
        пилятора {$X+}), типизированная константа типа PChar может иници-
        ализироваться строковой константой, например:

             const
                Message: PChar = 'Программа завершена';
                Prompt: PChar = 'Введите значения: ';
                Digits: array[0..9] of PChar = (
                    'Ноль', 'Один', 'Два', 'Три', 'Четыре',
                    'Пять', 'Шесть', 'Семь', 'Восемь', 'Девять');

             Результатом будет то,  что указатель теперь указывает на об-
        ласть памяти,  содержащую копию строкового литерала с завершающим
        нулем. Подробности вы можете найти в Главе 18 "Строки с завершаю-
        щим нулем".