1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
     TEdit.text:='0';
end;					

1:
2:
3:
4:
5:
6:
7:
8:

for i := 1 to ComponentCount -1 do
begin
 if (Components[i] is TEdit) then
 begin
  (Components[i] as TEdit).Clear {Inhalt löschen}
  // (Components[i] as TEdit).Text := '0' {Inhalt auf setzen!}
 end;
end;					

1:
2:
3:

for i:=1 to Component.Count-1 do begin
TRichEdit(findcomponent('RichEdit'+IntToStr(i))).Clear;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for i := 1 to ComponentCount -1 do  
begin  
 if (Components[i] is TEdit) then  
 begin  
  (Components[i] as TEdit).Clear
  (Components[i] as TEdit).Color := clAqua;
  (Components[i] as TEdit).ReadOnly := true;
  {...}
 end;  
end;