[Страдалецъ]

Для Net не подскажу, но вот для VCL такой способ работает:

Код:

 for j := 0 to Application.ComponentCount - 1
 do if Application.Components[j].ClassParent = TForm
    then with TForm(Application.Components[j])
         do for i := 0 to ComponentCount - 1
            do if Components[i].ClassType = TEdit
               then TEdit(Components[i]).Text := ''