--- oup/current/Helper/LevelDB.pas	2007/04/01 15:14:09	145
+++ oup/current/Helper/LevelDB.pas	2007/04/01 18:38:11	152
@@ -355,7 +355,13 @@ begin
       DatFileStream.Seek(0, soFromBeginning);
       Stream_Body.CopyFrom(DatFileStream, DatFileStream.Size);
       if (Stream_Body.Size mod 32) > 0 then
+      begin
+        ShowMessage(
+            IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 +
+            IntToStr(FileInfo.Size) + ' - 0x' + IntToHex(FileInfo.Size, 6) + ' - real: ' + IntToStr(DatFileStream.Size) + ' - 0x' + IntToHex(DatFileStream.Size, 6) + #13#10 +
+            IntToStr(Stream_Body.Size) + ' - 0x' + IntToHex(Stream_Body.Size, 6) );
         Stream_Body.Write(EmptyBytes[0], 32 - (Stream_Body.Size mod 32));
+      end;
     end
     else
       FilesHeader[FileID].DataAddr := 0;
@@ -664,11 +670,6 @@ begin
               BoolToStr(RawLinks[i].LocSep) + ', 0);';
             Query.ExecSQL;
           end;
-          if ((i mod 100) = 0) and (FileID > 0) then
-          begin
-            Database.Commit(False);
-            Database.StartTransaction;
-          end;
         end;
       end;