Объявление добавлять не нужно. Во-первых, посмотрите в инспекторе объектов, установлено ли событие OnTimer у Timer1 на вкладке Events. Во-вторых, в последней строчке кода поменяйте цвет на более видимый, например черный.
Тогда вы заметите передвигающийся по верхнему краю формы непонятный набор линий. А это значит, что либо в книжке неправильно написано, либо вы неправильно переписали процедуру прорисовки человека.