Asignacion multiple a varios componentes

[noseii]

Buenos dias, estoy haciendo un pequeño programa que controla los datos desde un dispositivo exterior conectado por usb, este aparato tiene una dll con una funcion que me devuelve en una tabla los niveles de los datos recogidos, unos 500 niveles mas o menos, de los valores de la tabla se los paso un componente progessbar para mostrar los niveles. Esta asignación de momento la estopa haciendo de la siguiente manera:
progressbar1.position := tabla_niveles[0];
progressbar2.position := tabla_niveles[1];
.
.
.
progressbar512.position := tabla_niveles[511];

Pero esto me parece un poco chapuza, alguna vez he hecho que varios botones hagan la misma funcion y dependiendo que boton pulsaras cambiar identificarlo.
Alguien me podria decir como podria hacer esto de una forma mas elegante.

muchas gracias a todos por vuestra ayuda.