Удаление компонентов

[Muniz]

Создаю массив компонентов, вот часть кода

type pan=array[1..15,1..15] of tpanel;
......
var i,p,j,o:integer;
    panela:pan;
begin
  p:=0; o:=0;
  for i:=1 to r do for j:=1 to s do
   begin
    panela[i,j]:=Tpanel.Create(form2);
    with panela[i,j] do
     begin
      parent:=form2;
      caption:=inttostr(m[i,j]);
      height:=17;
      width:=33;
      top:=50+o;
      left:=8+p;
      p:=p+48;
      if j=s then
      begin
       p:=0; o:=o+32;
      end;
     end;
   end;

Подскажите, как теперь удалить созданные компоненты, к примеру по нажатию кнопки или при закрытии данной формы?

[raxp]

также по циклу всем free

for i:=1 to r do for j:=1 to s do panela[i,j].free

[Muniz]

Выбивает ошибку: Access violation at address 00403156 in module 'Project1.exe'.

[Muniz]

Может я что-то не правильно пишу? Буду благодарен за любую помощь.

procedure TForm1.Button1Click(Sender: TObject);

var i,j,r,s,p,o:integer;
    m:array[1..15,1..15] of integer;
    panela:pan;
begin
p:=0; o:=0;
  for i:=1 to 3 do for j:=1 to 3 do
   begin
    panela[i,j]:=Tpanel.Create(form1);
    with panela[i,j] do
     begin
      parent:=form1;
      caption:=inttostr(j);
      height:=17;
      width:=33;
      top:=50+o;
      left:=8+p;
      p:=p+48;
      if j=3 then
      begin
       p:=0; o:=o+32;
      end;
     end;
  end;   
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
    panela:pan;
begin
  for i:=1 to 3 do for j:=1 to 3 do
  begin
   panela[i,j].Free;

  end; 
end;

[raxp]

var pan: array[1..3, 1..3] of tpanel;

...
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i,j,p,o,z:integer;
begin
 p:= 0; o:= 0; z:=0;

 for i:= 1 to 3 do for j:=1 to 3 do begin
  pan[i,j]:= Tpanel.Create(self);
  with pan[i,j] do begin
   inc(z);
   caption:= inttostr(z);
   height:=17;
   width:=33;
   top:=50+o;
   left:=8+p;
   p:=p+48;
   if j=3 then begin
     p:=0; o:=o+32
   end;

   parent:= self
  end
 end
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var i,j: integer;
begin
 for i:=1 to 3 do for j:=1 to 3 do pan[i,j].Free
end;

[Muniz]

Огромное спасибо!