problema son StrToFloat

[juggern]

Hola!

No, porque no me da ningún error. El problema tampoco es el separador decimal, porque ya lo trato yo para que sea una ",".

Os dejo más datos, es que es muy raro. Yo ahora cojo ese string y lo guardo en un campo sql que es currency, para ello uso strtocurr y en la base de datos me lo guarda correctamente.
Vuelvo a coger ese dato, esta vez directamente de la base de datos, y lo guardo en la variable, y me guarda un 0! no lo entiendo, he probado combinaciones de variables double, extended y currency y de los métodos .toString y ToCurrency del query y nada, me guarda un 0.
Si muestro un showmessage del campo:

Código Delphi [-]
ShowMessage(Query.FieldByName('Precio').AsString);

me muestra correctamente el dato, con lo que el problema que creo que me está pasando es al meter el valor en la variable que no es string. Porque me pasa al meter valor en la variable desde donde sea.
No lo entiendo, seguro que es una chorrada pero no lo veo.

Añado para que se vea más claro mi problema:

Código Delphi [-]
var
 dPrecio: currency;

  dPrecio:= Query.FieldByName('Precio').AsCurrency;
  ShowMessage(Query.FieldByName('Precio').AsString);

Esto me mete un 0 en dPrecio y me muestra en el showmessage un 102 (que es el valor que hay en la base de datos).