Konvertierung Double, Ausgabe davon

[rwb]

Hallo,
warum funktioniert das Folgende nicht wie erwartet?

Type TdataPoint=record
isRising: Boolean;
dateTime: TDatetime;
open, high,low,close:Double;
end;

VAR thisPoint:TdataPoint;
tradeOpen; y:String;

tradeOpen:='12843.2105';
with thisPoint do Begin
TextToFloat(PChar(tradeOpen),open, fvExtended);
End;

y:= FormatFloat('#0000.0000#;;', open);
targetMemo.Lines.Append(tradeOpen+' '+ y);

Ausgabe:
12843.2105 0000,0000

erwünscht:
12843.2105 12843.2105

Es ist, als ob kein Wert in thisPoint.open ist bzw er wird nicht richtig konvertiert.
Eure Hilfe wird sehr geschätzt.
Danke