Par exemple:

var i:= Integer
begin
 for i:=1 to 10 do begin
 TEdit(FindComponent('Edit' + IntToStr(i))).Text:='';
 end;
end;

ce qui aurait pour equivalence:

begin
 Edit1.Text:='';
 Edit2.Text:='';
 [...]
 Edit10.Text:='';
end;

Ca marche avec tout.
Je sais plus ou j'ai trouvé ca.