for i :=0 to Form1.ControlsCount-1 do if Form1.Controls[i] is TEdit then Form1.Controls[i].Text.Clear;