Asignar valore en forma dinamica a TQRLabel

[ocram]

los 40 valores ya los tengo asignados en el array de float la idea es decirle de forma dinamica ej:

qrlT1.Caption := FloatToStr(Total[1]);
qrlT2.Caption := FloatToStr(Total[2]);
.
.
.
qrlT40.Caption := FloatToStr(Total[40]);