* patch from Paul for further vista/win64 API enhancements (mantis 17958)

git-svn-id: trunk@17076 -

packages/fcl-db/src/base/fields.inc

@@ -1070,7 +1070,7 @@ function TStringField.GetDataSize: Integer;
 
 begin
   if DataType=ftFixedChar then
-    Result:=Size
+    Result:=Size+1
   else
     Result:=Size+1;
 end;