diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
index c6046b88b..c245bebee 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
@@ -3637,6 +3637,7 @@ var
   po: TsPrintOption;
   img: TsImage;
   embObj: TsEmbeddedObj;
+  so: TsSheetOption;
 begin
   if ASheet = nil then
   begin
@@ -3651,6 +3652,7 @@ begin
     AStrings.Add('Default row height=');
     AStrings.Add('Zoom factor=');
     AStrings.Add('Page layout=');
+    AStrings.Add('Options=');
   end else
   begin
     AStrings.Add(Format('Name=%s', [ASheet.Name]));
@@ -3771,6 +3773,13 @@ begin
     end else
       AStrings.Add('(+) Images=(dblclick for more...)');
 
+    s := '';
+    for so in TsSheetOption do
+      if so in ASheet.Options then
+        s := s + ', ' + GetEnumName(TypeInfo(TsSheetOption), ord(so));
+    if s <> '' then Delete(s, 1, 2);
+    AStrings.Add('Options='+s);
+
   end;
 end;