[teclilla]

import = 0
y genera el error 'Invalid variant type conversion'

Código Delphi [-]
import:=TPresProdDetalle.FieldByName('Importe').asFloat;
        ShowMessage(FloatToStr(import));
        QSuma.Close;
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        total:=QSuma.FieldByName('ST').Value; //genera el error
        ShowMessage(FloatToStr(import));
        TPresupuestosSumaTotal.AsFloat:=total;

Muchas gracias Caral