[daniel_gdfr]

Hola amigos del club tengo un error para almacenar un archivo de FastReport4 en base de datos Firebird, Estoy usando Delphi XE3 IDE los componentes del Tipo Query que uso son de KBMMW y cuando le doy la instruccion Execute me manda el siguiente error: Class EKbmmwException Message: Unsupported variant conversion. VarType=8209. les adjunto el codigo para que le den un vistazo... Espero y me puedan ayudar

Código Delphi [-]
procedure TFormatos.Actualizar_Formato(IdFormato : Integer; Descripcion, Nombre_archivo : String);
var
  Plantilla : TStream;
  Version : String;
begin
  try
    try
      Version := Obtener_Nueva_Version_Formato(FormatosQry.FieldByName('ID').asinteger);
      Plantilla := TMemoryStream.Create;
      Plantilla.Position := 0;
      Reporte.SaveToStream(Plantilla);
      GenericoQry.Close;
      GenericoQry.Query.Text := 'update formatos ' +
                                   'set formatos.formato = :formato, ' +
                                       'formatos.version = :version, ' +
                                       'formatos.fecha = current_date, ' +
                                       'formatos.idusuario = :idusuario, ' +
                                       'formatos.descripcion = :descripcion, ' +
                                       'formatos.nombre_archivo = :archivo ' +
                                 'where formatos.id = :idformato';
      GenericoQry.Params.ParamByName('FORMATO').LoadFromStream(Plantilla, ftBlob);
      GenericoQry.ParamByName['VERSION'].AsString := Version;
      GenericoQry.ParamByName['IDUSUARIO'].AsInteger := vgUsuario;
      GenericoQry.ParamByName['IDFORMATO'].asinteger := FormatosQry.FieldByName('ID').asinteger;
      GenericoQry.ParamByName['DESCRIPCION'].AsString := Descripcion;
      GenericoQry.ParamByName['ARCHIVO'].AsString := Nombre_Archivo;
      GenericoQry.Execute();
      Inserta_Formato_En_Bitacora(FormatosQry.FieldByName('ID').asinteger, Plantilla);
      dlgInformacion('Los cambios se han guardado con exito');
    except on E: Exception do
      dlgError('Ocurrio un error al guardar el formato ' + E.ClassName + E.Message);
    end;
  finally
    Plantilla.Free;
  end;

end;