delphi50jmb me parece interesante tu idea pero donde colocaria la opcion de
if qrexpr1=1 then
begin
QImage1.Enableb:=True;
end;
???
y si es algo q deseo agregarle ya q este sera un reporte para el jefe y como sabran una imagen vale mas q mil palabras