Delphi - Cambiar color TPanel según valor de campo

Hola programadores!!
Mi problema es el siguiente: Tengo 5 Tpanel (box1,box2...box 5) que corresponden a 5 registros a los que quiero cambiar el color según el valor del campo ('estado') en tiempo de ejecución. Recorro la BD y a cada registro le paso la función estadobox(box) con return = al color...pero cómo recorro los Tpanel?? algo así como:
Panel(box(x)).color:=estadobox(x)
Panel1.color:=estadobox(1)
Panel2.color:=estadobox(2)...etc

No sé si me he explicado....Gracias por vuestra ayuda

Es algo relativamente sencillo

for i:=1 to 5 do
if TPanel(FindComponent('box'+inttostr(i))) <> nil then
TPanel(FindComponent('panel'+inttostr(i))).Color := random(50000);