[Kapitoshka438]

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

Код:

baby(x,y,clBlack);

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