diff --git a/source/main.pas b/source/main.pas
index 6503285c..ffdbdd92 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -10532,6 +10532,7 @@ procedure TMainForm.AnyGridNewText(Sender: TBaseVirtualTree; Node: PVirtualNode;
       end else
         NewText := NewText;
     end;
+    FClipboardHasNull := FClipboardHasNull and (Clipboard.TryAsText = '');
     IsNull := FGridPasting and FClipboardHasNull;
     Results.SetCol(ResultCol, NewText, IsNull, FGridEditFunctionMode);
   except