Hola edgwin.
Podrías probar así:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
sf : string;
f : double;
begin
DecimalSeparator:= '.'; 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.