Probleme beim Arbeiten mit XML und Double-Werten

[HeZa]

Hallo,

der folgende Code führt unter Delphi-Seattle und Delphi-Rio (Update 3) zu unterschiedlichen Ausgaben:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  node: IXMLNode;
  doubleValueInput: Double;
  doubleValueOutput: Double;
begin
  node := NewXMLDocument.GetDocBinding('Value', TXMLNode, '') as IXMLNode;
  doubleValueInput := 3.14;
  node.NodeValue := doubleValueInput;
  doubleValueOutput := node.NodeValue;
  Caption := Format('DoubleValueInput: %f NodeValue: %s, DoubleValueOutput: %f', [doubleValueInput, VarToStr(node.NodeValue), doubleValueOutput]);
end;

Ausgabe des Programms mit Delphi-Seattle kompiliert:

Code:

DoubleValueInput: 3,14, NodeValue: 3,14, DoubleValueOutput: 3,14

Ausgabe des Programms mit Delphi-Rio kompiliert:

Code:

DoubleValueInput: 3,14, NodeValue: 3.14, DoubleValueOutput: 314

Ist Jemand diese Situation bekannt?
Was kann man dagegen tun?
Wie sieht das Ergebnis unter Delphi-Sydney kompiliert aus?

Vielen Dank im Voraus.
Ciao Heza

PS. Den Code des Test-Programms habe ich angehängt.