resourcestring
   _mC=' (%sмкс)';
   _min=' (nn:ss.zzz)';
   _Hour=' (hh:nn:ss)';

var FreqCPU:Double;


//OldCountCPU:           на входе - старое количество тактов процессора,
//                       а на выходе - новое количество тактов процессора
//Возвращаемое значение: Разница между старым и новым количеством тактов процессора
function CountCPU(var OldCountCPU:int64):int64;
assembler; asm
push  eBx
push  eCx
push  eSi
mov   eSi,eAx

db $0F;          //eAx - младшая часть eDx - старшая часть
db $31;

mov   eCx,Ds:[eSi]
mov   eBx,Ds:[eSi+4]
mov   Ds:[eSi],eAx
mov   Ds:[eSi+4],eDx

sub   eAx,eCx
sbb   eDx,eBx
mov   eCx,49
xor   eBx,eBx
sub   eAx,eCx
sbb   eDx,eBx
pop   eSi
pop   eCx
pop   eBx
end;

//Устанавливаем тактовую частоту процессора в Мгц
//Delay:                  Задершка в мC для расчета частоты процессора
procedure InitFreqCPU(Delay:DWORD=440);
var N:DWORD;
     T,NN:int64;
  begin
   N:=GetTickCount;
   while N=GetTickCount do;
   CountCPU(T);
   N:=GetTickCount;
   while N>GetTickCount-Delay do;
   //Sleep(Delay);
   NN:=CountCPU(T);
   NN:=(NN+Delay*500)div(Delay*1000);
   FreqCPU:=NN;
  end;

//CountCPU:              Количество тактов процессора
//Возвращаемое значение: Текстовая строка содержащая время
function CountCPUtoSTR(CountCPU:Int64):string;
var T:TDateTime;
    TT:Double;
    TS:string;
begin
if (FreqCPU<>0) then begin
  T:=CountCPU;
  T:=T/(FreqCPU);
  if T<2000 then TS:=Format(_mC,[inttostr(Round(T))])
    else begin
     TT:=T/1000000;
     if TT<3000 then DateTimeToString(TS,_min,TT/86400)
                else DateTimeToString(TS,_Hour,TT/86400)
   end;
  result:=TS;
end else result:='FreqCPU=0';
end;