--- oup/current/Helper/LevelDB.pas	2007/04/01 18:31:52	151
+++ oup/current/Helper/LevelDB.pas	2007/04/01 20:36:23	154
@@ -202,8 +202,13 @@ begin
   Stream_Names := TMemoryStream.Create;
   Stream_Dat   := TFileStream.Create(Target, fmCreate);
   Stream_Raw   := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.raw'), fmCreate);
+  Stream_Raw.Write(EmptyBytes[0], 32);
   if Connection.DataOS in [DOS_WINDEMO, DOS_MAC, DOS_MACBETA] then
+  begin
     Stream_Sep := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.sep'), fmCreate);
+    Stream_Sep.Write(EmptyBytes[0], 32);
+  end;
+
 
   DoStep('Creating header');
   progress.Position      := 0;
@@ -358,7 +363,7 @@ begin
       begin
         ShowMessage(
             IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 +
-            IntToStr(FileInfo.Size) + ' - 0x' + IntToHex(FileInfo.Size, 6) + #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;