Fórum sera que existe alguma alma caridosa para me ajudar????? #163385

tenho um sistema em d5 e ib6,no sistema existe uma tela de cadastro,distribuição,e informações ao procurador,a inclusão de dados
pela tela cadastro e informações esta correta, mas na distribuição
aparece um sinal de erro, ´lock conflict on no wait transaction deadlock´,
bem na hora que é clicado o botão incluir,tem hora que da o sinal e tem hora que não da,mas nossos usuarios estão loucos de raiva,me ajude por favor!!!!!!!!
este é o metodo que eu uso para incluir registros da tela do sistema para o banco de dados

procedure tformmovimentacao.distribuir;


begin
maiorcod;
With inclusao do
Begin
close;
ParamByName(´Varcodmovimentacao´).Asinteger:=codmaior.fieldbyname(´max´).Asinteger + 1;
ParamByName(´Varcodprocesso´).Asinteger:=ibgridcadastro.FIELDBYNAME(´cod_processo´).ASinteger;
ParamByName(´varhora´).asstring:=(statusbar1.panels[1].text);
ParamByName(´vardia´).asstring:=(statusbar1.panels[0].text);
ParamByName(´varbaixatribunal´).asstring:=maskbaixatribunal.text;
ParamByName(´vardevolucao´).asstring:=maskquandodevolveu.text;
ParamByName(´vardata´).asstring:=maskdata.text;
ParamByName(´varquemdistribuiu2´).asstring:=labelquemdist2.caption;
ParamByName(´vardata2´).asstring:=maskedit2.text;
ParamByName(´varREDISTRIBUIU2´).asstring:=cbo2redistribuido.text;
ParamByName(´varQUEMDISTRIBUIU1´).asstring:=labelquemdist1.caption;
ParamByName(´vardata1´).asstring:=maskdata1.text;
ParamByName(´varNUMERODAGUIA´).asstring:=edtnuguia.text;
ParamByName(´varQUEMDISTRIBUIU´).asstring:=labelquemdist.caption;
ParamByName(´varprocurador´).asstring:=combodistribuido.text;
ParamByName(´varDISTRIBUIDOPARA´).asstring:=combodistribuido.text;
ParamByName(´varREDISTRIBUIDO1´).asstring:=cbo1redistribuido.text;
ParamByName(´varRECEBIDOPOR´).asstring:=capoio.text;
ParamByName(´varRESPONSAVEL´).asstring:=label18.caption;
Prepare;
Open;
inclusao.next;

end;

end;
o que eu devo fazer????????
desde já agradeço!!!!!!!!