x.xxxx не является допустимым числом с плавающей запятой. Преобразование между языками / местными жителями

У меня есть испанский пользователь, который при этом получает недопустимую ошибку с плавающей запятой

var
  S : String;
  R : Real;
begin
  S := '3.12345';
  R := StrToFloat(S); //- Exception here.

Причина в том, что его местоположение использует , для десятичного разряда!
Как я могу безопасно преобразовать приведенную выше строку в плавающую для пользователя, не взрывая ее.