problema son StrToFloat

[Casimiro Notevi]

Creo que te estás confundiendo.
Para empezar, deberías usar una nomenclatura que aclare qué tipo de dato es cada uno, porque var1, valor1, cad1... confunde, cambia el nombre de las variables según su tipo, ejemplos:

Código Delphi [-]
sValor :String;
iValor :Integer;
fValor1, fValor2: Float;

fValor1 := 125,25;
sValor := FloatToStr(fValor1);
fValor2 := StrToFloat(sValor);

De esta manera estarás seguro de lo que estás haciendo.