Один из вариантов. Создаешь динамический массив (или если заранее знаешь кол-во панелей, то статический) и задаешь его тип TPanel;
Var
arrPanel : array of TPanel;
Begin
SetLength(arrPanel,PanelCount); //panelcount - кол-во панелей
{создаешь панели}
For i:=0 to PanelCount-1 do
Begin
ArrPanel[i]:=TPanel.create;
//ну и так далее
End;
End;
Потом обращешься к панелям как к массиву т.е.
arrPanel[i].Color:=clRed; // это в с таймере.
Ну понял наверное что я имел ввиду
