diff --git a/lcl/grids.pas b/lcl/grids.pas
index 18c2b608b2..ff190f79b6 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -10397,7 +10397,8 @@ begin
         SelStr := SelStr + #9;
     end;
 
-    SelStr := SelStr + #13#10;
+    if (R.Top <> R.Bottom) or (R.Left <> R.Right) then
+      SelStr := SelStr + sLineBreak;
   end;
   Clipboard.AsText := SelStr;
 end;