Podes valerte del método FindComponent.
Código:
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.