[Casimiro Notevi]

Prueba con FindComponent, algo así (lo he hecho de memoria, revísalo):
Suponiendo que los TEdit se llaman edit1, edit2, edit3, etc.

var
  i:integer;
  cEdit : String;
  UnEdit : TEdit;
begin
  for i:=1 to 100 do
  begin
    cEdit :='Edit'+IntToStr(i);
    UnEdit := Findcomponent(cEdit);
    if Assigned(UnEdit) then
      TEdit(UnEdit).Text := '';
  end;
end;