[CAHbKA]

Код:

function StrToReal(chaine: string): Real;
   var
     r: Real;
     Pos: Integer;
   begin
     Val(chaine, r, Pos);
     if Pos > 0 then Val(Copy(chaine, 1, Pos - 1), r, Pos);
     Result := r;
   end;

Вот я понял Val всегда будет точка но мне надо перевести это в значение СтрТоРеал