Твой код,
Код:
for i:=1 to 1000 do as1[i]:=random(40);
думаю, выполняется очень быстро. В делфе не пробовал, но когда писал в паскале - помогало так:
Код:
for j:=0 to 1000000 do
for i:=1 to 1000 do as1[i]:=random(40);
потом полученное время (ждать возможно придется долго) делишь на 1000000 и получаешь примерное время одного прохода. Тут уже можно как угодно - например делить на 1000 а не на миллион и посмотреть число, помня, что реальное время в 1000 раз меньше. Точно измерить невозможно - Windows же псевдопараллельная операционка.