Засеки время выполнения цикла...
Замерь текущее время до цикла затем замерь текущее время после цикла...Вычти одно из другого и подели на количество повторений в цикле...
Так же можно воспользоваться более точными счетчиками GetTickCount...
http://www.codenet.ru/progr/delphi/W...tTickCount.php
Или очень точным счетчиком QueryPerformanceCounter...
http://www.delphisources.ru/pages/fa...ct_timer2.html