Удаление динамически созданных объектов

 for i:=2 to Length(mlbl7)-1 do
  begin
        mlbl7[i].Free();
    mlbl21[i].Free();
    mlbl9[i].Free();
  end;
  for i:=2 to Length(mlbl10)-1 do
  begin
    mlbl10[i].Free();
    mlbl11[i].Free();
    mlbl12[i].Free();
    mlbl13[i].Free();
    mlbl22[i].Free();
    mlbl23[i].Free();
    mlbl24[i].Free();
    mlbl25[i].Free();
    mlbl14[i].Free();
    mlbl15[i].Free();
    mlbl16[i].Free();
    mlbl17[i].Free();
    mlbl18[i].Free();
    mlbl26[i].Free();
    mlbl27[i].Free();
    mlbl28[i].Free();
    mlbl29[i].Free();
    mlbl19[i].Free();
    mlbl30[i].Free();
  end;
  for i:=2 to Length(medit)-1 do
  begin
    medit[i].Free();
    mpnl[i].Free();
  end;

procedure Tmain_frm.slbl(m1: array of TsLabel; l1, l2: TsLabel;
  str1, str2: String;ysl,ysl2:Boolean);
  var
    i,l7:integer;
begin
  nentrants_frm.sprgrsbr1.Position:=nentrants_frm.sprgrsbr1.Position
  +StrToInt(floattostr(Roundto((100/StrToInt(nentrants_frm.Edit1.Text)),0)));
    l7:=3;
  for i := 0 to Length(m1)-1 do
  begin
      m1[i]:=TsLabel.Create(main_frm);
    //sozdaem lbl
     with m1[i] do
     begin
       case i of
        0:
        begin
          m1[i]:=l1;
        end;
        1:
        begin
          m1[i]:=l2;
        end;
       else
       begin
         if ysl2 then
         begin
          Parent:=mpnl[i];
          Top:=m1[i-1].Top;          
         end
         else
         begin
          Parent:=main_frm;
          Top:=m1[i-1].Top+56;
         end;
          left:=l1.Left;
          Width:=l1.Width;
          Height:=l1.Height;
          Color:=l1.Color;
          UseSkinColor:=False;
          Transparent:=l1.Transparent;
         Name:='lbl'+IntToStr(l7)+str1;
         if ysl then Caption:=IntToStr(l7)
         else
         begin
          Caption:=str2;
//          Left:=
         end;
         Font.Size:=12;
         Inc(l7);
       end;
       end;
     end;
  end;
end;

for i := 0 to Length(m1)-1 do
  begin
      m1[i]:=TsLabel.Create(main_frm);
    //sozdaem lbl
     with m1[i] do
     begin
       case i of
        0:
        begin
          m1[i]:=l1;
        end;
        1:
        begin
          m1[i]:=l2;
        end;
       else
       begin
         if ysl2 then
         begin
          Parent:=mpnl[i];
          Top:=m1[i-1].Top;          
         end
         else
         begin
          Parent:=main_frm;
          Top:=m1[i-1].Top+56;
         end;