Решено. Как узнать разделитель дроби в вещественных числах

Function CheckString (S: string): string; // Проверяем Edit поля при ручном вводе
 var
 a: integer;
 SS: char;
 fs: TFormatSettings;
 begin
    fs:=TFormatSettings.Create(GetThreadLocale());
    GetLocaleFormatSettings(GetThreadLocale(),fs);
    SS:= fs.DecimalSeparator; // читаем (точка-запятая) в вещественных числах
  for a:= Length (S) downto 1 do if s[a] in ['.', ',', '0'..'9'] then else Delete (s, a, 1); //удаляем пробелы и прочее
  for a:=1 to Length (S) do if S[a]  in [',', '.'] then S[a] := SS; // ставим правильный разделитель 
  Result:= S;
 end;

function CheckString (s: string): string;
var  d: double;
begin
  with TFormatSettings.Create do begin
    result := StringReplace(s, '.', DecimalSeparator, [rfReplaceAll]);
    result := StringReplace(result, ',', DecimalSeparator, [rfReplaceAll]);
  end;
  if not TryStrToFloat(result, d) then result := 'нифига не число';
end;;

  for a:= Length (S) downto 1 do if s[a] in ['.', ',', '0'..'9'] then else Delete (s, a, 1); //удаляем пробелы и прочее
  for a:= Length (S) downto 1 do if not (s[a] in ['.', ',', '0'..'9']) then Delete (s, a, 1); //удаляем пробелы и прочее

function TryStrToDoubleEx(const S: string; out Value: Double): Boolean;
begin
  // перевод строки в double c премодерацией разделителя.
  var temp:= S;
  for var idx:= 1 to length(temp) do
    if CharInSet(temp[idx], ['.', ','])
      then temp[idx]:= FormatSettings.DecimalSeparator;
 
  result:= TryStrToFloat(temp, Value);
end;

Function CheckString (S: string): string; // Проверяем Edit поля
 var
 a: integer;
 fs: TFormatSettings;
 begin
      fs:=TFormatSettings.Create (GetThreadLocale());
    GetLocaleFormatSettings (GetThreadLocale(),fs);
    for a:= Length (S) downto 1 do if s[a] in ['.' ,  ','] then S[a] := fs.DecimalSeparator  else   if S[a] in ['0'..'9'] then else Delete (s, a, 1);
    Result:= S; // Проверил, все работает четко
 end;