--- oup/current/Helper/LevelDB.pas	2007/03/30 02:08:49	142
+++ oup/current/Helper/LevelDB.pas	2007/04/01 15:40:16	146
@@ -44,6 +44,9 @@ end;
 
 
 procedure TForm_LevelDB.CreateLevel(Source, Target: String);
+const
+  EmptyBytes: Array[0..31] of Byte = (
+      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 );
 var
   DatHeader:        THeader;
   FilesHeader:      TFilesMap;
@@ -335,9 +338,13 @@ begin
             begin
               RawLinks[i].RawAddr := Stream_Sep.Size;
               Stream_sep.CopyFrom(RawFileStream, RawFileStream.Size);
+              if (Stream_Sep.Size mod 32) > 0 then
+                Stream_Sep.Write(EmptyBytes[0], 32 - (Stream_Sep.Size mod 32));
             end else begin
               RawLinks[i].RawAddr := Stream_Raw.Size;
               Stream_Raw.CopyFrom(RawFileStream, RawFileStream.Size);
+              if (Stream_Raw.Size mod 32) > 0 then
+                Stream_Raw.Write(EmptyBytes[0], 32 - (Stream_Raw.Size mod 32));
             end;
           end else
             RawLinks[i].RawAddr := 0;
@@ -347,6 +354,8 @@ begin
       end;
       DatFileStream.Seek(0, soFromBeginning);
       Stream_Body.CopyFrom(DatFileStream, DatFileStream.Size);
+      if (Stream_Body.Size mod 32) > 0 then
+        Stream_Body.Write(EmptyBytes[0], 32 - (Stream_Body.Size mod 32));
     end
     else
       FilesHeader[FileID].DataAddr := 0;
@@ -377,12 +386,19 @@ begin
   for i := 0 to High(ExtensionsHeader) do
     Stream_Dat.Write(ExtensionsHeader[i], SizeOf(ExtensionsHeader[i]));
 
+  if (Stream_Dat.Size mod 32) > 0 then
+    Stream_Dat.Write(EmptyBytes[0], 32 - (Stream_Dat.Size mod 32));
+
   DatHeader.DataSize  := Stream_Body.Size;
   DatHeader.NamesSize := Stream_Names.Size;
   DatHeader.DataAddr  := Stream_Dat.Size;
 
   Stream_Body.Seek(0, soFromBeginning);
   Stream_Dat.CopyFrom(Stream_Body, Stream_Body.Size);
+
+  if (Stream_Dat.Size mod 32) > 0 then
+    Stream_Dat.Write(EmptyBytes[0], 32 - (Stream_Dat.Size mod 32));
+
   DatHeader.NamesAddr := Stream_Dat.Size;
   Stream_Names.Seek(0, soFromBeginning);
   Stream_Dat.CopyFrom(Stream_Names, Stream_Names.Size);