Como recorrer los todos los QRLabels de un Qreport ???

[[Ivanzinho]]

Código Delphi [-]
var
  i : integer;
  componente : TComponent;
begin
  for i := 0 to QReport.ComponentCount - 1 do
    begin
      componente := QReport.Components[i];
      if componente is QRLabel then
         if (componente as QRLabel).Tag = 1 then
           (componente as QRLabel).Caption := 'Caption';
    end;
end;

Un saúdo