Gracias Ardilla, pero no resulto.
1. No encuentro funcion "CheckVariant(iVariant); .. lo puse como comentarios.. no se que chequeo hara...
2. Me dio error "Variant is not an array" al ejecutar funcion..
q_upd.parambyname('huella').asblob := VariantBinaryToString(pTemplate);