Здравствуйте.
Просмотрел форум, но не смог найти ответ. Процедура Delay имеет разное время выполнения в цикле на разных проходах выполнения цикла. Первый раз процедура выполняется с задержкой, потом задержа во много раз меньше, можно сказать отсутсвтует.
Не используй Delay
Используй GetTime