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;