[rodo2]

Gracias por contestar tan rapido

El primer valor lo saco de la siguiente manera.

aPrecio := StrToFloat("9040");
aPrecio := aPrecio * 0.001;

El segundo valor lo sale por medio de una consulta

tmpPrecio = Query.FieldByName('Precio').AsFloat;