[microbiano]

ahora si lo que quieres recorrer es la consulta umm pues puede ser asi:

Código Delphi [-]
with Quick_reporte_lic do
            begin
              while not Quick_reporte_lic.Qry_1.Eof do
                begin                                   
                  variable1 :=Qry_1.FieldByName ('licitacion').AsString;
                  variable2 :=Qry_1.FieldByName ('claves').AsInteger;
                  variable3:=Qry_1.FieldByName ('piezas').AsInteger;
                  variable3:=Qry_1.FieldByName ('piezas').AsInteger;                  
                  Next;
                 if (variable1<>'') or (variable2<>'')   or (variable3<>'') or (variable4<>'') then 
                      begin
                            ///entra si todas las variables estan llevas
                      end;  

                end;  
            end;