diff --git a/components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi b/components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi
index e40d98a11..2173ae5db 100644
--- a/components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi
+++ b/components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi
@@ -7,7 +7,6 @@
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
-        <UseDefaultCompilerOptions Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
diff --git a/components/fpspreadsheet/examples/excel8demo/excel8write_format.pas b/components/fpspreadsheet/examples/excel8demo/excel8write_format.pas
index ff713fbae..153299438 100644
--- a/components/fpspreadsheet/examples/excel8demo/excel8write_format.pas
+++ b/components/fpspreadsheet/examples/excel8demo/excel8write_format.pas
@@ -108,7 +108,7 @@ begin
   MyWorksheet.WriteUTF8Text(5, 9, '[N,W,E,S]');// J6
   MyCell := MyWorksheet.GetCell(5, 9);
   MyCell^.Border := [cbNorth, cbWest, cbEast, cbSouth];
-  MyCell^.UsedFormattingFields := [uffBorder];
+  MyCell^.UsedFormattingFields := [uffBorder, uffBold];
 
   // Save the spreadsheet to a file
   MyWorkbook.WriteToFile(MyDir + 'test3.xls', sfExcel8, False);
diff --git a/components/fpspreadsheet/examples/excel8demo/run_excel8write_format.bat b/components/fpspreadsheet/examples/excel8demo/run_excel8write_format.bat
new file mode 100644
index 000000000..f470b475e
--- /dev/null
+++ b/components/fpspreadsheet/examples/excel8demo/run_excel8write_format.bat
@@ -0,0 +1,2 @@
+excel8write_format.exe
+pause
\ No newline at end of file