Я понял тебя....
У тебя как то так?
Код:
for i := 0 to 1000 do
begin
MyProcedure;
end;
Ну так сделай так...
Код:
for i := 0 to 1000 do
begin
n := GetTickCount;//Засек время
MyProcedure;//Выполнил процедуру
m := GetTickCount;//Засек время
s := m-n;//Вычислил время выполнения процедуры
s1 := s1+s;//Вычислил общее время цикла
end;
t := s1 /1000;//получил среднее время выполнения процедуры
//К примеру 0,001 сек...т.е. за одну сек 1000 раз...все)))
Если не то, тогда код цикла в студию, гадать могут только цыганки...