* patch from mantis 34851 committed. use size in bits to set result of openbit instead of a fsize*32.

git-svn-id: trunk@41185 -

rtl/objpas/classes/bits.inc

@@ -107,7 +107,7 @@ begin
    end;
 
    if FSize < MaxBitRec then
-     result := FSize * 32;  {first bit of next record}
+     result := FBSize;  {first bit of next record}
 end;
 
 { ******************** TBits ***************************** }