problema son StrToFloat

[juggern]

Buenas tardes chicos:

Hace mucho tiempo puse un problema aquí pero al final no conseguí solucionarlo y salté a otra cosa porque era un proyecto pequeño, ahora me vuelve a saltar y ya no se que hacer.

Resulta que tengo un string que es un valor sin coma (155) y otro con coma (110,2), necesito pasarlo a número para poder tratarlos, hago lo siguiente:

Código Delphi [-]
var
 cad1,cad2: string;
 valor1, valor2: double;

 cad1:= '100';
 cad2:= '105,5';

 valor1:= strtofloat(cad1);
 valor2:= strtofloat(cad2);

En realidad los valores string me vienen de datos que cojo de un fichero, os lo pongo así para simplificarlo.
Voy depurando paso por paso y cad1 y cad2 llevan bien el valor, pero al pasarlos a valor1 y valor2, las dos variables double pone 0, no consigo que coja el número.
No arroja ningún error, todo funciona sin errores pero los valores de valor1 y valor2 pone 0.

Estoy usando delphi 10 y ya no se que hacer, no entiendo que pasa, en delphi 7 funciona perfectamente.

He probado con variables extended y las deja a 0 igual, he probado también con variables currency y usar strtocurr pero también lo deja a 0.

Hay alguna otra forma de hacerlo? me estoy volviendo loco, necesito que sean double para calcular cosas con esos datos, iva y cosas así.


Muchas gracias.