problema son StrToFloat

[[movorack]]

¿Podría ser que en tu código exista una función que se llame StrToFloat?

Prueba a usar la función de conversión como "System.SysUtils.StrToFloat"

Código Delphi [-]
function StrToFloat(S: string): Extended;
begin
  Result := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  D: Extended;
begin
  //Acá se usa la función StrToFloat local y devuelve un 0
  D := StrToFloat('100');
  ShowMessage(FloatToStr(D));

  //Acá se usa la función StrToFloat de la VCL y devuelve el valor correcto
  D := System.SysUtils.StrToFloat('100');
  ShowMessage(FloatToStr(D));
end;