Fórum DBEdit1.Exit como Edit1.Exit #286912

Olá a todos,

Já enfrentei esta situação antes e não estou conseguindo agora.
Na inclusão quando eu uso:

procedure TCadDesigner.Edit1Exit(Sender: TObject);
begin
if DMDados.Emps.Locate(´CampoX´,Edit1.Text, []) then
begin
se existe
mostra registro
senao
inclui registro
end;
End;

funciona muito bem.

mais quando eu uso:

procedure TCadDesigner.DBEdit1Exit(Sender: TObject);
begin
if DMDados.Emps.Locate(´CampoX´,DBEdit1.Text, []) then
begin
se existe
mostra registro
senao
inclui registro
end;
End;

me retorna ´key violation´

Como eu poderia usar DBEdit1 sem que me retorne ´key violation´.

Um abraço a todos

Naelson