Засечь время с точностью в миллисекунду

milliseconds:=QueryPerformanceCounter/QueryPerformanceFrequency*0,001;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  Fr, t1, t2 : Int64;
  Dt : Extended;
begin
  //Определяем тактовую частоту процессора (количество тактов в секунду).
  QueryPerformanceFrequency(Fr);
  if Fr = 0 then begin
    ShowMessage('Не удалось получить сведения о тактовой частоте.');
    Exit;
  end;
  ShowMessage('Тактовая частота процессора (количество тактов в секунду): ' + IntToStr(Fr));
 
  //Чтение показания счётчика тактов.
  QueryPerformanceCounter(t1);
 
  //Запуск исследуемого процесса.
  Sleep(5);
 
  //Показание счётчика тактов.
  QueryPerformanceCounter(t2);
  //Рассчёт времени.
  Dt := (t2 - t1) / Fr;
 
  ShowMessage('Длительность выполнения в секундах: ' + FloatToStr(Dt));
end;