diff --git a/packages/fcl-db/src/base/bufdataset_parser.pp b/packages/fcl-db/src/base/bufdataset_parser.pp
index f96ac14e69..0ad9204938 100644
--- a/packages/fcl-db/src/base/bufdataset_parser.pp
+++ b/packages/fcl-db/src/base/bufdataset_parser.pp
@@ -181,13 +181,11 @@ end;
 
 procedure TStringFieldVar.Refresh(Buffer: TRecordBuffer);
 var Fieldbuf : TStringFieldBuffer;
-    s        : string;
 begin
   if not FField.DataSet.GetFieldData(FField,@Fieldbuf) then
-    s := ''
+    FFieldVal^:=#0
   else
-    s := Fieldbuf;
-  strcopy(FFieldVal,@s[1]);
+    strcopy(FFieldVal,@Fieldbuf[0]);
 end;
 
 //--TFloatFieldVar-----------------------------------------------------------