Ayuda por favor: TZQuery + TClientDataSet = Error.

[juanblack]

Saludos de nuevo amigos del foro.

Aquí de nuevo yo con un gran problema:
Sucede que queriendo realizar una prueba de transacciones muy simple manejando esta vez componentes zeos (TZQuery) y componentes midas (TClientDataSet) me tope con el espantoso error -901.

Me explico mejor:
Como antecedente estoy usando Firebird 2.1 como base de datos, Delphi 5, Componentes Zeos ver. 6.6.1 beta (diganme si es o no una versión estable por favor). Todo ello bajo el SO windows vista.

La tabla es bien sencilla:

Código SQL [-]
CREATE TABLE MOVIMIENTOS_MASTER (
    ID_MOVI           INTEGER NOT NULL,
    AREA_CLAVE        INTEGER NOT NULL,
    FECHA_MOVIMIENTO  DATE NOT NULL
);

En una forma nueva agrego los siguientes componentes:

Código Delphi [-]
  object MiZConnect: TZConnection
    Protocol = 'firebird-2.0'
    HostName = 'localhost'
    Database = 'PRUEBA01.FDB'
    User = 'sysdba'
    Password = 'masterkey'
    AutoCommit = False
    TransactIsolationLevel = tiReadCommitted
    Connected = True
  end
  object MiZQuery: TZQuery
    Connection = MiZConnect
    SQL.Strings = ('select id_movi, area_clave, fecha_movimiento'
      'from movimientos_master')
    Params = <>
  end
  object MiDSProvider: TDataSetProvider
    DataSet = MiZQuery
    Constraints = False
    Options = [poIncFieldProps, poCascadeDeletes, poCascadeUpdates, poAllowMultiRecordUpdates, poPropogateChanges]
    UpdateMode = upWhereKeyOnly
  end
  object MiCDS: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'MiDSProvider'
    object MiCDSID_MOVI: TIntegerField
      FieldName = 'ID_MOVI'
      Required = True
    end
    object MiCDSAREA_CLAVE: TIntegerField
      FieldName = 'AREA_CLAVE'
      Required = True
    end
    object MiCDSFECHA_MOVIMIENTO: TDateField
      FieldName = 'FECHA_MOVIMIENTO'
      Required = True
    end
  end
  object MiDS: TDataSource
    DataSet = MiCDS
  end
  object DBNavigator1: TDBNavigator
    DataSource = MiDS
    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    DataField = 'ID_MOVI'
    DataSource = MiDS
    TabOrder = 1
  end

Como veran no es gran cosa, pues para empezar solo quiero navegar por la tabla con mi TDBNavigator y todo esto solo para probar este -para mi- nuevo tipo de interacción con mi base de datos. Esto lo tome de unos ejemplos que el mismo Delphi ya trae al instalarlo con la diferencia de que esos son para tablas de Interbase.

Pues bueno, todo hasta ahi bien, pero al ejecutar la aplicación me lanza el siguente error -cosa curiosa- AL CERRAR la aplicación (funciona bien aparente mente y todo pero al cerrar la forma surge el error):
Project prueba.exe raised exception class EZSQLException with message 'SQL Error: Invalid statement handle. ErrorCode: -901. Unsuccessful execution caused by system error that does not preclude successful execution of subsequent statements '.

Ya intente cambiar el componente TZQuery por un TZTable y me da el mismo resultado, he cambiado las propiedades de los componentes y nada, sigo con el mismo error. ¿Que es lo que estoy haciendo mal? ¿Es asi como deben configurarse los componentes? Una mano aquí por favor.

Muchas gracias de antemano.