diff --git a/components/fpspreadsheet/fpsvisualutils.pas b/components/fpspreadsheet/fpsvisualutils.pas
index ac3093be5..7c8b87f93 100644
--- a/components/fpspreadsheet/fpsvisualutils.pas
+++ b/components/fpspreadsheet/fpsvisualutils.pas
@@ -248,6 +248,9 @@ procedure DrawRichText(ACanvas: TCanvas; AWorkbook: TsWorkbook; const ARect: TRe
 var
   painter: TsTextPainter;
 begin
+  if (ARect.Left = ARect.Right) or (ARect.Top = ARect.Bottom) then
+    exit;
+
   painter := TsTextPainter.Create(ACanvas, AWorkbook, ARect, AText, ARichTextParams,
     AFontIndex, ARotation, AHorAlignment, AVertAlignment, AWordWrap, ARightToLeft);
   try