[ecfisa]

Hola edgwin.

Podrías probar así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  sf : string;
  f  : double;
begin
  DecimalSeparator:= '.';  // o para coma: ','
  sf := '40460.37028';
  f  := StrToFloat(sf);
end;

Si no querés que quede alterada la configuración decimal para el resto del programa:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  sf : string;
  f  : double;
  aux: char;
begin
  aux:= DecimalSeparator;
  DecimalSeparator:= '.';
  sf := '40460.37028';
  f  := StrToFloat(sf);
  DecimalSeparator:= aux;
end;

Saludos.