si tu veut juste afficher ton nombre avec un point et non avec une virgule tu peut aussi faire ça
var r:extended;
s:string;
i: byte;
begin
r:=128.2;
s:=floattostr(r);
i:=lastdelimiter(',', s); //renvoie la position de la virgule dans ta chaine
s[i]:='.';
showmessage(s);
end;
