delphi 底部panel实现打开窗体显关闭标签

//close form
procedure TForm_Main.Close_MDI_Child_Form(const aMDIForm: TForm); 
var i: Integer; aSpeedButton: TSpeedButton; 
begin 
    aMDIForm.Close;
  for i := 0 to Self.MDIChildCount - 1 do
  begin
    if Self.MDIChildren[i] = aMDIForm then
      TSpeedButton(FindComponent('btn_' + aMDIForm.Name)).Free
    else
    begin
      aSpeedButton := TSpeedButton(FindComponent('btn_' + Self.MDIChildren[i].Name));
      aSpeedButton.Left := 5 + (aSpeedButton.Width + 10) * i;
    end;
  end;
end;