Олег

Я пользовался процедурами, которые уже описаны в делфях:
QueryPerformanceFrequency - количество тактов за миллисекунду
QueryPerformanceCounter - количество тактов

Твой пример:
var
tc,tc2,tcins:int64;
QueryPerformanceFrequency(tcins);
QueryPerformanceCounter(tc);

bubblesort(arr100,0,100);

QueryPerformanceCounter(tc2);