[Thrasher]

Код:

Var
T1,T2,Fr:Int64;
Code_time:Double;

function RDTSC: Int64; register; //Получение количество тактов процессора, со времени его включения
 asm
   rdtsc
 end;

begin
//Узнаем частоту
T1:=RDTSC;
sleep(1000);
T2:=RDTSC;
Fr:=T2-T1;

T1:=RDTSC;
//Тут выполняем код, время исполнения которого нужно узнать
//
Sleep(10);
T2:=RDTSC;
Code_Time:=(T2-T1)/Fr*1000;
ShowMessage('код выполнялся '+FloatToStr(Code_Time)+' мс');

end;