[roamer]

Может это поможет :

Код:

function _StrToExtended(Sx:string; DefR : Extended) : Extended;
Var
  Res : integer;
begin
  Sx:=Trim(Sx);
  Sx:=Replace_Char_In_String(Sx,ORD(','),ORD('.'));
  Val(Sx,Result,Res);
  if Res<>0 then Result:=DefR;
end;


function Replace_Char_In_String(Sx : string; asciCodeOLD, asciCodeNEW : integer) : string;
{Заменить символы в строке}
Var
  i : integer;
begin
  Result:=Sx;
  for i:=1 to length(Result) do
   begin
    if ORD(Result[i])=asciCodeOLD then Result[i]:=CHR(asciCodeNEW);
  end;
end;