problemas al grabar con Sql...

[BPL]

Hola a toditos...

la verdad ya habia reportado este problemita que tengo, pero nadie contesto espero que ahora si, en un cachito que tengo........

yo trabajo con DBF, motor de BDD ADVANTAGE, Red Novell

tengo la sgte funcion hecha en delphi, para grabar en una tabla

Datamodule.tabla1.AdsConnection.BeginTransaction ;
TRY
QrAux.SQL.Clear ;
QrAux.SQL.Add('Insert Into tabla (campo1,campo2,campo3)') ;
QrAux.SQL.Add('Values (Dato1,Dato2,Dato3)') ;
QrAux.ParamByName('Dato1').AsInteger := valor1
QrAux.ParamByName('Dato2').AsInteger := valor2
QrAux.ParamByName('Dato3').AsInteger := valor3
QrAux.ExecSQL ;
QrAux.Close ;
EXCEPT
Datamodule.tabla1.AdsConnection.Rollback ;
RAISE
END ;
Datamodule.Tabla1.AdsConnection.Commit ;
Datamodule.Tabla1.Close;
ShowMessage('SE GRABO EXITOSAMENTE EL REGISTRO....');

pues bien el problema es que en cierta ocasiones eso si la minoria, me duplica el dato en la tabla grabandolo mas de una vez, si no es al mismo segundo es casi al mismo segundo.
en mi programa me doy la lata despues de grabar revisar y enviar msg si ocurrio esto...pero es un lata....

podria alguien ayudarme plis....este problema me tiene ahogada....

gracias, a todos y feliz año, sobretodo a los que me contestaran.....