Включаю твой пример - работает. Правда, при первом запуске не работало!!! После того, как в таймере добавил 1 строку (типа "ShowMessage('iterr')
то заработало (потом удалил). Видимо, как-то не так скомпилило сначала эту процедуру, а после изменения перекомпилировало правильно. Попробуй то же сделать.