[kast2k]

Добрый день!
Возникла такая проблема:
Есть несколько форм. На этих формах используются компоненты TlabeledEdit.
Задача: сделать одну общую процедуру для очистки TlabeledEdit на всех формах. Т.е. открыта, например, Form2, нажал кнопку и все Эдиты на форме очистились или в них записалось какое-то значение, а на других формах ничего не изменилось.
Пробовал сделать вот так, но при этом все происходит только на основной форме, а на остальных фиг.

Код:

procedure Tform1.clearf(Sender: TObject);
var
i,c,k:integer;
begin
c:=0;
for k := 0 to controlcount-1 do
  begin
  if controls[k] is TlabeledEdit then
  c:=c+1;
  end;
for i:=0 to c-1 do
    begin
      TLabeledEdit(FindComponent('Edit' + IntToStr(i+1))).color:=clred;
    end;
end;