FloatToStr ? Punkt statt komma ?

[Delphiturbo]

Muss ich dafür eine Funktion schreiben ?

Delphi-Quellcode:

var
  S: string;
  x: Real;
begin
x:= 10 / 3;
s:=FloattoStr(x);
  while Pos(',', S) > 0 do
    S[Pos(',', S)] := '.';
y:=S;
    showMessage(s);
end;

ist das nicht viel