Float точка или запятая

function TForm1.DefineCurrency(price: string): string;
var
st:string;
a:double;
l:integer;
begin
l:=length(price);
if trim(copy(price,l-3,4))='USD' then    //проверяем на доллары
begin
    //st:=StringReplace(price,'.',',',[rfReplaceAll]);
    delete(price,l-3,4);                      //убираем всё лишнее
    delete(price,1,5);
    trim(price);
    a:=StrToFloat(price)*31.50;        //переводим в рубли
    Result:=FloatToStr(a);
end
 else if copy(price,l-5,7)='1073;.' then           //проверяем на рубли
    begin    // Rub
   //st:=StringReplace(price,',','.',[rfReplaceAll]);    
   delete(st,l-16,17);                                //убираем всё лишнее
   Result:=St;
  end
   else if copy(price,l-4,5)='8364;' then   // проверяем на евро
     begin
      //st:=StringReplace(price,',','.',[rfReplaceAll]);
      delete(st,l-6,7);                              // убираем всё лишнее
      a:=StrToFloat(st)*41.15;                   // переводим в рубли
      Result:=FloatToStr(a); 
     end;
end;

var
  DefaultLCID: LCID;
...
  DefaultLCID       := GetThreadLocale;
  DecimalSeparator  := GetLocaleChar(DefaultLCID, LOCALE_SDECIMAL, '.');

function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Char;
var
  Buffer : array[0..1] of Char;
begin
  if GetLocaleInfo(Locale, LocaleType, Buffer, 2) > 0 then
    Result := Buffer[0]
  else
    Result := Default;
end;

//Преобразует строку в вещественное число. При этом, разделителем целой
//и дробной частей числа может быть любой знак из множества D.
function StrToFloatSafe(const aStr : String) : Extended;
const
  //Множество возможных разделителей целой и дробной части в записи числа.
  D = ['.', ','];
var
  S : String;
  i : Integer;
begin
  S := aStr;
  for i := 1 to Length(S) do
    if S[i] in D then begin
      S[i] := DecimalSeparator;
      Break;
    end;
  Result := StrToFloat(S);
end;
 
//Преобразует строку в вещественное число. При этом, разделителем целой
//и дробной частей числа может быть любой знак из множества D.
//Если строка содержит недопустимую запись числа, то функция возвращает
//значение, равное aDef.
function StrToFloatDefSafe(const aStr : String; const aDef : Extended) : Extended;
const
  //Множество возможных разделителей целой и дробной части в записи числа.
  D = ['.', ','];
var
  S : String;
  i : Integer;
begin
  S := aStr;
  for i := 1 to Length(S) do
    if S[i] in D then begin
      S[i] := DecimalSeparator;
      Break;
    end;
  Result := StrToFloatDef(S, aDef);
end;
 
//Проверка.
procedure TForm1.Button1Click(Sender: TObject);
var
  Num : Extended;
begin
  Num := StrToFloatDefSafe(Edit1.Text, 0);
  ShowMessage(FloatToStr(Num));
end;