کار خاص با Edit

[کامروا]

سلام دوستان

فرض کنید 20 تا Edit دارم که اسم هاشون به ترتیب Edit1,Edit2,...,Edit20
و حالا میخوام درون یک حلقه همه آنها را مقدار دهی کنم
آیا روشی برای این کار وجود دارد که مثلا بصورت کد زیر بنویسم؟

For i:=1 To 20 Do
Edit[i].Text := '0';

[Felony]

var
I: Integer;
begin
for I := 0 to Self.ComponentCount - 1 do
if (Self.Components[I] is TEdit) and (Copy(TEdit(Self.Components[I]).Name, 0, 4) = 'Edit') then
TEdit(Self.Components[I]).Text := TimeToStr(Now);
end;

در دلفی 2009 به بعد میتونید به صورت زیر هم این کار رو انجام بدید :

var
Com: TComponent;
begin
for Com in Self do
if (Com is TEdit) and (Copy(TEdit(Com).Name, 0, 4) = 'Edit') then
TEdit(Com).Text := TimeToStr(Now);
end;