А если перед началом цикла сделать так:
comp := Self.ComponentCount-1 (объяви переменную comp как integer в начале процедуры),
а потом цикл:
For I:=0 to comp do
If Self.Components[i] Is TEdit then
(Self.Components[i] As TEdit).Text:=’’;
Может сработает...
|