[jachguate]

Podes valerte del método FindComponent.

for i := 1 to MaxTallas do
Begin
  (FindComponent('qrlTitulo' + inttostr(i)) as TQrLabel).Caption := Talla[i];
  (FindComponent('qrdbText' + intToStr(i)) as TQrdbText).DataField := 'Talla' + inttostr(i);
End;

Hasta luego.