Procedure OnTimer;
Если я не ошибаюсь, она должна быть
Procedure OnTimer(Sender : TObject);
А еще почему таймер включается еще даже до того, как ему инициализировали процедуру OnTimer? А точнее сначала его включают, а потом выключают
(Вызывается процедура start, в которой есть строчка Timer1.Enabled := True; Хотя видно что только после выполнения процедуры start таймеру назначается интервал, потом таймер выключается опять Timer1.Enabled := False ; и потом назначается процедура OnTimer)