For i:=0 to QCount-1

QArray:array[1..20] of TPanel;
LabelArray:array[1..20] of TLabel;
EditArray:array[1..20] of TEdit;

Const
   MaxCount = 20;
Var
  QArray:array of TPanel;
  LabelArray:array of TLabel;
  EditArray:array of TEdit;   
  I: Integer;
  my_obj: PObject;
Begin
  SetLength(QArray, MaxCount);
  SetLength(LabelArray, MaxCount);
  SetLength(EditArray, MaxCount);

  //тут твоя работа такая же как и в том массиве, просто можешь смотреть на MaxCount или на Length(QArray) например
  ....
  //а потом можешь сделать так
  For I := Low(QArray) To High(QArray) Do
  Begin
     If Assigned(QArray[I]) Then
     Begin
         my_obj := (QArray[i] as TPanel).ClassInfo;
         FreeAndNil(my_obj);   
     End;
  End;
  //подчистим сам массив
  SetLength(QArray, 0);
  SetLength(LabelArray, 0);
  SetLength(EditArray, 0);
End;

if QCount>0 then
  begin
    For i:=1 to QCount do
      begin
        QArray[i].Free;
        EditArray[i].Free;
        LabelArray[i].Free;
      end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
const
   MaxCount = 20;
var
  LabelArray:array of TLabel;
  EditArray:array of TEdit;
  I: Integer;
  my_obj: PObject;
begin
  SetLength(LabelArray, MaxCount);
  SetLength(EditArray, MaxCount);
  for I := Low(LabelArray) to High(LabelArray) do
  begin
     if Assigned(LabelArray[I]) then
     begin
         my_obj := (LabelArray[i] as TLabel).ClassInfo;
         FreeAndNil(my_obj);
     end;
  end;
  SetLength(LabelArray, 0);
  SetLength(EditArray, 0);
end;

if QCount>0 then
  begin
    ShowMessage('Have found '+IntToStr(QCount)+' components');
    For i:= Low(QArray) To High(QArray)-1 Do
      begin
        if Assigned(QArray[i]) then
          begin
            my_obj := QArray[i].ClassInfo;
            FreeAndNil(my_obj);
          end;

        if Assigned(EditArray[i]) then
          begin
            my_obj := EditArray[i].ClassInfo;
            FreeAndNil(my_obj);
          end;

        if Assigned(LabelArray[i]) then
          begin
            my_obj := LabelArray[i].ClassInfo;
            FreeAndNil(my_obj);
          end;
      end;
    SetLength(QArray, 0);
    SetLength(LabelArray, 0);
    SetLength(EditArray, 0);
  end;

FreeAndNil(my_obj);

Obj^ := nil;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    btnCreate: TButton;
    btnFree: TButton;
    procedure btnFreeClick(Sender: TObject);
    procedure btnCreateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    b: boolean;
    aPnl: array of TPanel; aLbl: array of TLabel; aEdt: array of TEdit;
    procedure _Create(aOwner: TWinControl; pnlTop, pnlLeft, pnlWidth, pnlHeight: integer; Captions: TStrings);
    procedure _Free;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1._Create(aOwner: TWinControl; pnlTop, pnlLeft, pnlWidth, pnlHeight: integer; Captions: TStrings);
var
  i: Integer;
begin
  if b then
    _Free;
  SetLength(aPnl, Captions.Count); SetLength(aLbl, Captions.Count); SetLength(aEdt, Captions.Count);
  for i:= Low(aPnl) to High(aPnl) do
  begin
    aPnl[i]:= TPanel.Create(aOwner);
    aPnl[i].Top:= pnlTop;
    aPnl[i].Left:= pnlLeft;
    aPnl[i].Width:= pnlWidth;
    aPnl[i].Height:= pnlHeight;
    aPnl[i].Parent:= aOwner;
    aLbl[i]:= TLabel.Create(aPnl[i]);
    aLbl[i].Top:= 8;
    aLbl[i].Left:= 8;
    aLbl[i].Caption:= Captions.Strings[i];
    aLbl[i].Parent:= (aPnl[i]);
    aEdt[i]:= TEdit.Create(aPnl[i]);
    aEdt[i].Top:= aLbl[i].Top + aLbl[i].Height;
    aEdt[i].Left:= aLbl[i].Left;
    aEdt[i].Width:= aPnl[i].Width - aLbl[i].Left * 2;
    aEdt[i].Tag:= i; // Для обработчиков событий, если будут добавлены.
    aEdt[i].Parent:= aPnl[i];
    pnlTop:= pnlTop + pnlHeight;
  end;
  b:= true;
end;

procedure TForm1._Free;
var
  i: Integer;
begin
  for i:= Low(aPnl) to High(aPnl) do
  begin
    aLbl[i].Free; aEdt[i].Free; aPnl[i].Free;
  end;
  SetLength(aLbl, 0); SetLength(aEdt, 0); SetLength(aPnl, 0); b:= false;
end;

procedure TForm1.btnCreateClick(Sender: TObject);
var
  SL: TStringList;
begin
  SL:= TStringList.Create;
  try
    SL.Add('Вопрос 1: бла-бла-бла...');
    SL.Add('Вопрос 2: бла-бла-бла...');
    SL.Add('Вопрос 3: бла-бла-бла...');
    _Create(Form1, 8, 8, 460, 57, SL);
  finally
    SL.Free;
  end;
end;

procedure TForm1.btnFreeClick(Sender: TObject);
begin
  _Free;
end;

end.

 _Create(Form1.TabSheet1, 8, 8, 460, 57, SL);