Se puede hacer un else en un While not query1.eof Do?

[[oscarac]]

yo lo tengo mas o menos asi

Código Delphi [-]
 
procedure TfrmCatalogoArticulo.qryArticuloKODValidate(
  Sender: TField);
  dmComedor.qryVerificaKodArticulo.Parameters.ParamByName('KOD').Value := Sender.Value;
  dmComedor.qryVerificaKodArticulo.Open;
  if not dmComedor.qryVerificaKodArticulo.IsEmpty then
  begin
    MessageDlg('Código ya creado', mtError, [mbAbort], 0);
    dmComedor.qryVerificaKodArticulo.Close;
    Abort;
  end;
  dmComedor.qryVerificaKodArticulo.Close;

como ubicas el ONvalidate?
en el query o tabla donde estas grabando la informacion le das doble click al componente y te salen los campos persistentes.. en el campos en el cual pretendes grabar el "codigo", busca en el object inspector.. el evento Onvalidate... ahi colocas el codigo para verificar si existe o no