[Alegun]

Сообщение от angvelem

И в Дельфи 7 программа не могла работать правмльно...

Точно подмечено, так не могло работать, но походу в коде просто пропущена первая строчка после begin

Код:

TheLength := GetTickCount;