Управление компонентами интерфейса

procedure SetComponentsEnabled(APanel: TWinControl; AEnabled: Boolean);
var
  I: Integer;
begin
  for I := 0 to APanel.ControlCount - 1 do
  begin
    if APanel.Controls[I].ClassType.InheritsFrom(TWinControl) and not(APanel.Controls[I] is TPanel) then
    begin
      // Включаем/отключаем каждый контрол
      TWinControl(APanel.Controls[I]).Enabled := AEnabled;

      // Рекурсия для вложенных контейнеров (если нужно)
      if TWinControl(APanel.Controls[I]) is TWinControl then
        SetComponentsEnabled(TWinControl(APanel.Controls[I]), AEnabled);
    end;
  end;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
 SetComponentsEnabled(Panel1, False); // Отключение всех компонентов
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 SetComponentsEnabled(Panel1, True); // Включение всех компонентов
end;