закрытие вкладки в TTabControl

[Shade]

Всем привет - нужен код для закрытия вкладки в компоненте TabControl.
Помню что делал такое но не помню как) весь вечер ломал голову - немогу вспомнить - помню ток что в 1 строчку код на закрытие активной страницы( воть.... Заранее благодарен

[rpy3uH]

запрет за выбор вкладки с индексом 2

var
  i:integer;

procedure TForm1.TabControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
   i:= TabControl1.TabIndex;
end;

procedure TForm1.TabControl1Change(Sender: TObject);
begin
   if TabControl1.TabIndex=2 then
    TabControl1.TabIndex:=i;
end;

[Shade]

Спасибо конечно огромное, но это немного не то) Мне нужен код именно закрытия вкладки. этот код будет вызываться при правом клике на корешке вкладки и выборе "закрыть" из контекстного меню... ну и соответственно закрувать эту вкладку

[ИВэТэшка]

TabControl1.Tabs.Delete(TabControl1 .TabIndex);