* TGraphics header size was subtracted from non TGraphic blobs ,

     Mantis 18712, patch by Erwin v/d Bosch.

git-svn-id: trunk@16917 -

packages/fcl-db/src/paradox/paradox.pp

@@ -812,8 +812,12 @@ begin
         Result:=TMemoryStream.Create;
         V2:=Value;
         if (Field.DataType=ftGraphic) then
+          begin
           Result.WriteAnsiString('bmp');
-        Result.WriteBuffer(V2^,D-SizeOf(TGraphicHeader));
+          Result.WriteBuffer(V2^,D-SizeOf(TGraphicHeader));
+          end
+        else
+          Result.WriteBuffer(V2^,D);
         Result.Position:=0;
         FDoc^.free(FDoc,Value);
         end;