Dados nao Gravam

Pessoal olha so
Tenho 1 cliente trabalhando em rede onde 1 usuario cadastra notas fiscais e o outro emite cheque pra esses documentos, o banco de dados dele ja tem mais de 120.000 registros, uso o Bde 5.01 com DBF.

Na uses eu declarei = Bde,DBiProcs;

e os dados sao gravados da seguinte forma:

Table1.append;
Table1COD_PLA.Value := planilha;
Table1CODIGO.Value := MECodigoDoc.Text;
...
...
...
Table1.Post;
Check(DbiSaveChanges(Table1.handle));

Pof via das duvidas repeti o Check no AfterPost;

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
Check(DbiSaveChanges(Table1.handle));
end;

E no Bde configurei o MDX BLOCK SIZE PARA 3096 por causa do grande volume de dados que eles tem.


MEU PROBLEMA E O SEGUINTE, TA ACONTECENDO DE QUANDO O USUARIO CADASTRA O DOCUMENTO ELE NAO E CADASTRADO PARECE QUE ELE SE PERDE NO CAMINHO, E ELE TEM QUE CADASTRAR VARIAS VEZES PRO DOCUMENTO FICAR CADASTRADO.
QUANDO REINDEXA O SISTEMA ISSO PARA POR UM TEMPINHO MAS DEPOIS VOLTA DENOVO.

ALGUEM SABE COMO RESOLVER ESSE TIPO DE COISA DE UMA VEZ.

OBS: O CLIENTE NAO ACEITA FAZER UMA LIMPESA NOS BANCO DE DADOS..

AGRADECO A ATENCAO