[angvelem]

Примерно так:

Код:

  // Устанавливаем для всех Label-ов новую позицию
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TLabel) then
      (Components[i] as TLabel).Top := 10;