Uses system.diagnostics
   
   
   var Stopwatch     : TStopwatch;
       ElapsedSeconds: Double;
       
   Stopwatch := TStopwatch.StartNew;
   .
   .
   .
   ElapsedSeconds := Stopwatch.ElapsedMilliseconds / 1000;
   showmessage(Format('SVV Compress OFF Elapsed time: %.3f seconds', [ElapsedSeconds]));