[Страдалецъ]

Вам надо обойти все компоненты на форме, проверить их тип и присвоить нужное значение цвета: Где-то так:

Код:

 for i := 0 to ComponentCount-1
 do if Components[i].ClassType = TPanel
    then TPanel(Components[i]).Color := clBlack;