Dois Usuários gravando ao mesmo tempo

Boa tarde pessoal,

Estou com problemas quando 2 usuários tentam gravar no banco de dados no mesmo instante.

Minha aplicação é em Delphi e meu Banco de Dados é my-sql, na minha tabela eu tenho um campo ID auto incremento

e um campo que eu gravo o código queé digitado pelo usuário e não se pode repetir, porém quando 2 usuários tentam gravar ao mesmo tempo a campo auto incremento é gerado corretamente, mas a função não consegue controlar 2 usuários inserindo no banco no mesmo instante de tempo e deixa gravar os 2 registros com código igual, o que não pode acontecer na minha aplicação devido este código ser UNICO.

Segue abaixo a linha da função:

OBS: Se houver um mínimo atraso na inserção de um usuário para o outro, f http://forum.imasters.com.br/public/style_emoticons/default/excl.gif unciona corretamente a validação, mas se for no MESMO INSTANTE, ela falha ocasionando o problema.

>>>>>

if (DataSet in [dsInsert]) and

(QuantidadeRegistros('TABELA','CAMPO BUSCA',VALOR)) > 0) then

begin

 Alerta('Número de Passagem já Cadastrado');

 dbeNumeroPassagem.SetFocus;

 Exit;

 end;

<<<<<<

att Andre http://forum.imasters.com.br/public/style_emoticons/default/excl.gif http://forum.imasters.com.br/public/style_emoticons/default/upset.gif