Hola GerTorresM
A modo de ejemplo, agregá 5 TQRLabel al TQuickReport y a cada Tag dale valores de 0 hasta 4, luego desde el form que lo invocas probá este código:
Código Delphi
[-]
...
implementation
uses Unit2, QRCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
TS: TStrings;
begin
TS:= TStringList.Create;
try
for i:= 1 to 5 do TS.Add('ETIQUETA '+IntToStr(i));
with QuickReport1 do
begin
for i:= 0 to ComponentCount -1 do
if Components[i] is TQRLabel then
with TQRLabel(Components[i]) do Caption:= TS[Tag];
end;
finally
TS.Free;
end;
QuickReport1.Preview;
end;
...
Saludos.