diff --git a/components/fpspreadsheet/examples/other/chart/write_demos.lpg b/components/fpspreadsheet/examples/other/chart/write_demos.lpg
index 28e905a71..db813965a 100644
--- a/components/fpspreadsheet/examples/other/chart/write_demos.lpg
+++ b/components/fpspreadsheet/examples/other/chart/write_demos.lpg
@@ -37,16 +37,6 @@
           <Mode Name="Default"/>
         </BuildModes>
       </Target>
-      <Target FileName="scatter_log_write_demo.lpi">
-        <BuildModes>
-          <Mode Name="Default"/>
-        </BuildModes>
-      </Target>
-      <Target FileName="scatter_loglog_write_demo.lpi">
-        <BuildModes>
-          <Mode Name="Default"/>
-        </BuildModes>
-      </Target>
       <Target FileName="stock_write_demo.lpi">
         <BuildModes>
           <Mode Name="Default"/>
diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetchart.pas b/components/fpspreadsheet/source/visual/fpspreadsheetchart.pas
index b51c33ff9..d478f18bf 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetchart.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetchart.pas
@@ -1288,10 +1288,8 @@ begin
         FChart.AxisList[i].Minors.Delete(j);
 
     if (FChart.AxisList[i].Marks.Source is TDateTimeIntervalChartSource) then
-    begin
       FChart.AxisList[i].Marks.Source.Free;
-      FChart.AxisList[i].Marks.Style := smsValue;
-    end;
+    FChart.AxisList[i].Marks.Style := smsValue;
 
     case FChart.AxisList[i].Alignment of
       calLeft, calBottom:
@@ -1763,12 +1761,12 @@ begin
 
   if AWorkbookAxis = AWorkbookAxis.Chart.XAxis then
     align := calBottom
-  else if AWorkbookAxis = AWorkbookAxis.Chart.X2Axis then
-    align := calTop
   else if AWorkbookAxis = AWorkbookAxis.Chart.YAxis then
     align := calLeft
   else if AWorkbookAxis = AWorkbookAxis.Chart.Y2Axis then
     align := calRight
+  else if AWorkbookAxis = AWorkbookAxis.Chart.X2Axis then
+    align := calTop
   else
     raise Exception.Create('Unsupported axis alignment');