Обращение к компонентам через индекс

Чтобы найти и сделать видимыми, например, компоненты с именами от "Label1" и до "Label5" можно использовать следующий вариант:


for t := 1 to 5 do
  FindComponent('Label' + IntToStr(t)).Visible := TRUE;