--- oup/current/Helper_LevelDB.pas	2006/12/25 18:36:41	56
+++ oup/current/Helper_LevelDB.pas	2006/12/26 23:37:24	58
@@ -260,9 +260,9 @@ begin
     FilesHeader[i].FileSize := fileinfo.Size;
     FilesHeader[i].FileType := fileinfo.FileType;
 
-    if ((i mod 25) = 0) and (i >= 100) then
-      lbl_estimation.Caption := 'Estimated finishing time: ' + TimeToStr(
-        (Time - begintime) / i * progress.Max + begintime);
+    if ((i mod 10) = 0) and (i >= 100) then
+      lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr(
+        (Time - begintime) / i * (progress.Max - i + 1) * 1.1 );
     progress.Position := i + 1;
     lbl_progress.Caption := 'Files done: ' + IntToStr(i + 1) + '/' + IntToStr(progress.Max);
     Application.ProcessMessages;
@@ -530,9 +530,9 @@ begin
       Database.Commit(False);
       Database.StartTransaction;
     end;
-    if ((i mod 25) = 0) and (i >= 100) then
-      lbl_estimation.Caption := 'Estimated finishing time: ' + TimeToStr(
-        (Time - begintime) / i * progress.Max + begintime);
+    if ((i mod 10) = 0) and (i >= 100) then
+      lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr(
+        (Time - begintime) / i * (progress.Max - i + 1) * 1.1 );
     progress.Position := i;
     lbl_progress.Caption := 'Files done: ' + IntToStr(i) + '/' + IntToStr(progress.Max);
     Application.ProcessMessages;