[angvelem]

Ну зачем же? Добавить массив цветов и по тагу выбирать из него.
Кстати, поиск я бы организовал так:

Код:

  for I := 0 to ComponentCount - 1 do
    if Components[i] is TLabel then
      if (Components[i] as TLabel).Tag = (Sender as TImage).Tag then
        (Components[i] as TLabel).Font.Color := clWhite;