--- oup/current/Helper_LevelDB.pas	2006/12/23 16:26:43	46
+++ oup/current/Helper_LevelDB.pas	2006/12/25 18:36:41	56
@@ -77,6 +77,7 @@ var
   datlinks: TDatLinks;
   OniImage: TOniImage;
   levelid:  LongWord;
+  timeformat: TFormatSettings;
 const
   steps: Byte = 3;
 
@@ -99,6 +100,9 @@ begin
   // FILE EXISTS CHECK FÜR DAT/RAW/SEP!!!
   //
 
+  timeformat.LongTimeFormat := 'hh:nn:ss';
+  timeformat.TimeSeparator := ':';
+
   if not CreateDataConnection(Source, ODB_ADB) then
   begin
     ShowMessage('Could not connect to .oldb-file');
@@ -294,7 +298,7 @@ begin
   progress.Position      := progress.Max;
   lbl_progress.Caption   := 'Files done: ' + IntToStr(progress.Max) + '/' +
     IntToStr(progress.Max);
-  lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime) + ')';
+  lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime, timeformat) + ')';
 
   DoStep('FIN');
   btn_abortok.Caption := '&OK';
@@ -338,6 +342,7 @@ var
   rawlist:  TRawList;
   extlist:  TExtensionsMap;
   fileinfo: TFileInfo;
+  timeformat: TFormatSettings;
 const
   steps: Byte = 4;
 
@@ -541,7 +546,10 @@ begin
   progress.Position      := progress.Max;
   lbl_progress.Caption   := 'Files done: ' + IntToStr(progress.Max) + '/' +
     IntToStr(progress.Max);
-  lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime) + ')';
+
+  timeformat.LongTimeFormat := 'hh:nn:ss';
+  timeformat.TimeSeparator := ':';
+  lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime, timeformat) + ')';
 
   DoStep('FIN');
   btn_abortok.Caption := '&OK';