procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if (self.Components[i] is Tedit) then
begin
Tedit(Components[i]).Clear;;
end;
end;
end;
原文：http://www.cnblogs.com/sharon0203/p/6874696.html