var
    _Begin, _End: TTimeStamp;
    Total: LongWord;
    x,i:integer;
begin
    {запоминается момент начала операции}
    _Begin := DateTimeToTimeStamp(Now);

    {Выполняем операции}
    For i:=0 to 9999999 do x:=Round(x*50 / 50);

    {запоминается момент окончания операции}
    _End := DateTimeToTimeStamp(Now);
    {Вычисляем затраченное время}
    Total := _End.Time - _Begin.Time;

    ShowMessage(IntToStr(Total));
end;

function GetTimer: DWORD;
var f, t: Int64;
begin
   QueryPerformanceFrequency(f); // частота счетчика производительности
   QueryPerformanceCounter(t); // значение счетчика производительности
   Result:= Trunc(1000 * t / f);
end;

var t: TTime;
begin
   t:=sysUtils.Time; // èëè ïðîñòî Time
   ShowMessage(TimeToStr(Time));
end;