Zamykanie zakładki tabsheet

Tworze dynamicznie zakładke w pagecontrol
var
NewTabSheet: TTabSheet;
begin
NewTabSheet := TTabSheet.Create(PageControl1);
NewTabSheet.Caption := 'aaa';
NewTabSheet.PageControl := PageControl1;
end;
Jak zrobić aby dynamicznie tworzona zakładka zamykała sie po dwókrotnym kliknieciu myszką na jej nazwe?

Musisz odmerzać czas między kliknięciami. Jeśli wystarczy Ci dokładność 1s to możesz zrobić na przykład tak:

var 
  LastClickTime: TTime;
  LastClickActivePage: TTabSheet;

procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (GetTime-LastClickTime<StrToTime('00:00:01')) and (PageControl1.ActivePage=LastClickActivePage) then
    PageControl1.ActivePage.Destroy;
  LastCLickTime:=GetTime;
  LastClickActivePage:=PageControl1.ActivePage;
end;

Zrobiłem tak i nic :>