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; if IsEmpty then begin DBENombre.SetFocus;
end else begin
ShowMessage('Ese codigo ya existe');
DBEId.Clear;
DBEId.SetFocus;
end; end; end;