怎样让所有的文本框被清空！

[21stboy]

文本框的NAME属性不同，并且没有规律。
难道只有一个一个的清除吗？

[chechy]

for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
TEdit(Components[i]).Text := '';