清除窗体控件

procedure TForm3.RzToolButton1Click(Sender: TObject);
var
  i:Integer;
 begin
   if Form1.Panel1.ControlCount>0 then
   begin
    for i:=1 to Form1.Panel1.ControlCount-1 do
     begin
     Form1.Panel1.Controls[i].Free;
     end;
   end;
  Self.close;
 end;