Código Delphi [-] if Query1.RecordCount>0 then mostrarReporte;
if Query1.RecordCount>0 then mostrarReporte;