diff --git a/components/fpspreadsheet/fpspreadsheetgrid.pas b/components/fpspreadsheet/fpspreadsheetgrid.pas
index bb0d76119..7d49db74b 100644
--- a/components/fpspreadsheet/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/fpspreadsheetgrid.pas
@@ -2411,12 +2411,20 @@ begin
   if (horAlign = haDefault) then
   begin
     if (lCell^.ContentType in [cctNumber, cctDateTime]) then
-      horAlign := haRight
-    else
+    begin
+      if IsRightToLeft then
+        horAlign := haLeft
+      else
+        horAlign := haRight;
+    end else
     if (lCell^.ContentType in [cctBool]) then
       horAlign := haCenter
-    else
-      horAlign := haLeft;
+    else begin
+      if IsRightToLeft then
+        horAlign := haRight
+      else
+        horAlign := haLeft;
+    end;
   end;
 
   // Font index