diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
index a39a4c849..4cc172908 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
@@ -3797,7 +3797,7 @@ begin
   begin
     s := '';
     for rtp in ACell^.RichTextParams do
-      s := Format('%s; Font #%d after pos %d', [s, rtp.FontIndex, rtp.FirstIndex]);
+      s := Format('%s; Font #%d at pos %d', [s, rtp.FontIndex, rtp.FirstIndex]);
     Delete(s, 1, 2);
     if s = '' then s := '(none)';
     AStrings.Add('Rich-text parameters='+s);