--- oup/current/Helper/LevelDB.pas	2007/04/01 18:26:35	150
+++ oup/current/Helper/LevelDB.pas	2007/04/01 18:31:52	151
@@ -358,7 +358,8 @@ begin
       begin
         ShowMessage(
             IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 +
-            IntToStr(Stream_Body.Size));
+            IntToStr(FileInfo.Size) + ' - 0x' + IntToHex(FileInfo.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