Código Delphi [-] for I := 0 to ComponentCount - 1 do if Components[i] is TEdit then TEdit(Components[i]).Clear;
for I := 0 to ComponentCount - 1 do if Components[i] is TEdit then TEdit(Components[i]).Clear;