diff --git a/components/fpspreadsheet/fpsopendocument.pas b/components/fpspreadsheet/fpsopendocument.pas
index fabf34f72..4dc69b4f2 100755
--- a/components/fpspreadsheet/fpsopendocument.pas
+++ b/components/fpspreadsheet/fpsopendocument.pas
@@ -235,8 +235,11 @@ begin
 end;
 
 procedure TsSpreadOpenDocReader.ReadNumber(ARow: Word; ACol : Word; ACellNode : TDOMNode);
+var
+  FSettings: TFormatSettings;
 begin
-  FWorkSheet.WriteNumber(Arow,ACol,StrToFloat(ACellNode.TextContent));
+  FSettings.DecimalSeparator:='.';
+  FWorkSheet.WriteNumber(Arow,ACol,StrToFloat(ACellNode.TextContent,FSettings));
 end;
 
 { TsSpreadOpenDocWriter }