[ContraVeneno]

o también:

Código Delphi [-]
With DataModule2.AdoQuery1 do
 ...
 ...
 Open;
 IF not IsEmpty then
  HacerCambios();
 else
  showmessage('no existe');