Error al guardar un Archivo de FastReport en Base de Datos Firebird con Delphi EX3
 

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;