Варианты реализации программы с использованием таймеров

[Casper-SC]

Я просто не могу не написать, как решена проблема мной же.
Всего то надо было не останавливать таймер, а прервать цикл:

...
for I := 0 to (ListViewAlarm.Items.Count - 1)  do
  begin
   if TClock(ListViewAlarm.Items.Item[i].Data).CheckTime then 
...
break //вот так

Выше есть полный пример.
Конечно можно подшаманить, чтобы следующий цикл сработал чуть быстрее, но это уже другой вопрос.
Убитый сегодняшний день с 5-ти утра, по 19: 15 (с перерывами небольшими) и я уже потеряв надежду решил вопрос сам. Вся работа стояла из-за этого недоразумения.