pascalabcnet/InstallerSamples/NETLibraries/NET4.0/StopWatch.pas

// Stopwatch - класс высокоточного таймера (с точностью до 0.001 с)
begin
  var stopWatch := new System.Diagnostics.Stopwatch;
  stopWatch.Start;
 
  Sleep(123);
 
  stopWatch.Stop;
  var ts := stopWatch.Elapsed;
  writelnFormat('Время работы: {0:00}:{1:00}:{2:00}.{3:000}',ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds);
end.