[Yulka]

perdon, estoy usando delphi 7 con interbase
mi problema es el siguiente , tengo que validar que si "elimino" una clinica esta no se encuentre ya utilizada.

en QCLin : Tibquery

Código SQL [-]
Select * from CIRUGIA where ( CIRLUGAR= :clinica)

Código Delphi [-]
procedure TfrmClinicas.cmdEliminarClick(Sender: TObject);
begin
    try  //recorro la tabla cirugia
      QClin.Open;
      QClin.Prepare;
      if QClin ..... // tengo que evaluar y me tiene que devolver True o Fasle
    if (MessageDlg('¿Desea eliminar la Clinica o Intitución?', mtWarning,[mbYes, mbNo],0) = mrYes) then
      DMABMTablas.ABMTablas.TClinicas.Delete;
    except
      on EDatabaseError do
         ShowMessage('Error en el acceso a la Base de Datos');
      on E: Exception do
         ShowMessage('Error ' + E.ClassName + ': '+ E.Message);
      end; }

Gracias, espero que se entienda mejor