* Fix ftgUID field size. Fixes issue #40107

packages/fcl-db/src/base/bufdataset.pas

@@ -2536,8 +2536,8 @@ function TCustomBufDataset.GetFieldSize(FieldDef : TFieldDef) : longint;
 begin
   case FieldDef.DataType of
     ftUnknown    : result := 0;
+    ftGuid: result := FieldDef.Size + 1;
     ftString,
-      ftGuid,
       ftFixedChar: result := FieldDef.Size*FieldDef.CharSize + 1;
     ftFixedWideChar,
       ftWideString:result := (FieldDef.Size + 1)*FieldDef.CharSize;