Охват всех Label'ов

[qwerty55]

Здравствуйте!
Возникла проблемка, как во избежание повторяющихся действий и перегрузки кода сделать смену цвета у ВСЕХ Label'ов лежащих на форме (их около 15 штук)? Не могу понять как это сделать...
Заранее спасибо!

[ych_del]

Если просто на форме - то очень просто:

for X := 0 to frm.ControlsCount-1 do
   if frm.Controls[X] is TLabel then TLabel(frm.Controls[X]).Color := цвет

Если же разложены по панелям, групбоксам и т.п. - то юзай рекурсию

[qwerty55]

они находятся на одной форме и на одной панеле

[Serge_Bliznykov]

они находятся на одной форме и на одной панеле

тогда предложенный способ вполне себе подойдёт.
только перебирать контролы нужно как раз на вашей панели:

for X := 0 to Form1.Panel1.ControlsCount-1 do
   if Form1.Panel1.Controls[X] is TLabel then TLabel(Form1.Panel1.Controls[X]).Color := цвет