Error el actualizar datos en tablas DBF

[river_1]

Buenas a todos necesito ayuda con un error.
Explico: Estoy con Delphi 7 y me conecto a una BD de FoxPro(*.DBF) por medio de los componentes ADO que trae Delphi, el ADO lo conecto por medio de un ODBC de windows.Ya tengo otros programas que se cuelgan muy bien de esas BD y extraigo informacion para hacer reportes a la medida de mis clientes, en esta ocasion y por primera vez necesito actualizar registros en la BD.
La informacion actualizada la tengo un una BD de Acces y de alli busco el registro en la tabla DBF para actualizar algunos campos.
El codigo que uso para hacerlo es el siguiente:

Código Delphi [-]
  TBLPRODMDB.First;
  WHILE NOT TBLPRODMDB.Eof DO
  BEGIN
    IF TBLPRODDBF.Locate('CCODIGOP01',TblProdMDBCCODIGOP01.Value,[]) THEN
    BEGIN
      TBLPRODDBF.Edit;
      TblProdDBFccontrol01.Value:=1;
      IF TBLUM.Locate('CNOMBREU01',TblProdMDBCIDUNIDA01.Value,[]) THEN
         TblProdDBFcidunida01.value:=tBLumcidunidad.value;
      TBLPRODDBF.Post;
      TBLPRODMDB.NEXT;
    END;
  END;
  SHOWMESSAGE('Proceso Terminado'); 
end;

El error que me sale me dice de manera general: "Statement too long" y es al darle el POST a la tabla.
De hecho no siquiera me deja poner el 1 del campo TblProdDBFccontrol01.
Alguien ha modificado tablas DBF con Delphi?
Gracias...