Условие к множеству компонентов

[Pshek]

Доброго времени суток.

Суть вопроса в следующем:

На форме имеется более 5 сотен компонентов Label (числа, могут совпадать) и более сотни Edit (соответственно тоже числа). Возможно ли прописать выражение, описанное ниже, не прописывая километровый код отдельно для каждого компонента:

if Label(1...100).Captiоn = Edit(1...100).text then Label1.Color := clRed

Если хоть какой-то из Label совпадает с любым Edit - цвет красный...

Заранее спасибо.

[VadikV]

for i := 0 to ComponentCount - 1 do
      if Components[i] is TLabel then
          for j := 0 to ComponentCount - 1 do
              if Components[j] is TEdit then
                 if (Components[i] as TLabel).Caption = (Components[j] as TEdit).Text 
                 then begin
                      (Components[i] as TLabel).Color := clRed;
                      break;
                  end;

[Pshek]

Большое спасибо