[rgstuamigo]

Supongo que el error es precisamente por lo que estas mencionando,(la configuracion regional), y eso ocurre precisamente por que en algunas configuraciones regionales se trabaja como separador decimal con el punto ( . ) y en otras configuraciones se trabaja con el caracter coma ( , ), en todo caso lo corecto que veo es hacerlo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  sf : string;
  f  : double;
begin
   sf := '40460,37028';//<--He cambiado el punto ( . ) por coma ( , )  
   f  := StrToFloat(sf);//   ---> Aqui ya no te marcará un error  
end;

Espero te sea de utilidad.
Saludos...