[Ade]

ok Dec, muchas gracias por tu ayuda , asi ya sale lo que queria:

Código Delphi [-]
for i:=(InformeProveedores2.ComponentCount-1) downto 0 do
         begin
              if InformeProveedores2.Components[i] is TQRLabel then
                begin
                if InformeProveedores2.Components[i].name <>'QRLabelnew' then
                TQRLabel(InformeProveedores2.Components[i]).Destroy;
                end;
         end;

Pero aun asi, he de aprender a utilizar un objeto "TList", ya q nunca lo he hecho
Saludos