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]));