Список компонентов на форме

Пример 1

В данном примере очистим все поля ввода TEdit, которые находятся на форме:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      TEdit(Components[i]).text:= ''
end;

Пример 2

Во втором варианте очищаем все поля ввода, а также делаем их недоступными:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
    begin
      TEdit(Components[i]).Clear;
      TEdit(Components[i]).Enabled:=false;
    end;
end;