[NumLock]

конфликт имен / неправильное использование. FindPut это метод TZakon и глобальная переменная. в данном случае компилятор берет глобальную переменную.
ну и все-таки у конструкторов вызов предка делать.