обнуление editов в цикле

[edik]

Помогите как можно обратиться в цикле к нескольким edit ам и обнулить их (например)

[Alex Cones]

F1+FindComponent

[edik]

этот метод я знаю неужели другого более проще нет

[Пепел Феникса]

в VCL нет.(ну разве что самому перебирать эти контролы все)

[Marsel737]

procedure LabelInitiallization;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);

var
  LabelArray: array of TLabel;

procedure TForm1.LabelInitiallization;
begin
  LabelArray[1]:=Label1;
  LabelArray[2]:=Label2;
            ...
  LanelArray[n]:=Labeln;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.LabelInitiallization;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: byte;
  n: byte; //число леэблов
begin
  for i:=1 to n do
    LabelArray[i].Caption:='';
end;

Как-то так, кстати, если кто занет как сделать это более удобным и компактным образом - с интересом посматрю

[edik]

Благодарю за помощь