Código Delphi [-] QClin.Open; if QClin.RecordCount>0 then etc...
QClin.Open; if QClin.RecordCount>0 then etc...