Problema al validar DBEdit con ADOQuery

[ContraVeneno]

Lo más recomendable, sería poner esa validación en la base de datos, no en el programa...

pero si lo quieres por programa:

la idea de usar "With ADOQuery1 do begin" es que no tengas que escribir adoquery1 en cada línea, ya que delphi lo reconocerá...

Código Delphi [-]
procedure TNTecForm.DBEIdExit(Sender: TObject);
begin
with ADOQuery1 do begin
 Close; 
 SQL.Clear; 
 SQL.Add('select * from NTecnicos where cod_tecnico = :Codigo'); 
 parameters.paramByName('Codigo').Value := DBEId.Text;
 Open; //abro la consulta
 if IsEmpty then begin//si el resultado de la consulta esta vacia...
  DBENombre.SetFocus;
 end else begin
  ShowMessage('Ese codigo ya existe');
  DBEId.Clear;
  DBEId.SetFocus;
 end; //If IsEmpty
end; //with
end; //procedure