مشکل در حذف لیبل در ران تایم

[seyed_farid]

با سلام خدمت متخصصان عزیز

من برای حذف لیبل در ران تابم از دستور زیر استفاده میکنم.

procedure TMain.Button10Click(Sender: TObject);



var i : Integer;

        lbl : tlabel;

begin

  Memo1.Lines.add(IntToStr(Panel3.ControlCount)+' Controls found' );



  for i := Panel3.ControlCount -1  downto 0 do

  begin

   if Panel3.Controls[i] is TLabel then

     begin

       lbl := Panel3.Controls[i] as TLabel;

       lbl.Parent := nil;

       

      //FreeAndNil(lbl);

       

      // TWinControl((Panel3.Controls[i]).parent).

      //    RemoveControl((Panel3.Controls[i]));

      // (Panel3.Controls[i]).Parent := nil;

      // (Panel3.Controls[i]).free;

     end;

     

  end;

end;

پیام خطای زیر میآید. مشکل چیست؟

Access violation at address 0041EA72 in module 'AIM.exe'. Read of address 00000008



برای حذف و اضافه نمودن لیبل پیشنهاد شما چیست؟