如何双击tabsheet标签关闭当前tabsheet?

procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Timer1.Enabled and Assigned(TPageControl(Sender).ActivePage) then
    TPageControl(Sender).ActivePage.TabVisible := False
    //TPageControl(Sender).ActivePage.Free//如果你是动态创建
  else Timer1.Enabled := True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TTimer(Sender).Enabled := False;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 200;
  Timer1.Enabled := False;
end;