Aden1985

Разобрался.

procedure TfrMain.TabClose(Sender: TObject);
var
  activetab : Integer;
begin
  activetab:=((Sender as TControl).Parent as TControl).Parent.Index;
  TabControl1.Delete(activetab);
end;

Подскажите пожалуйста как правильно создать вкладки в TTabControl 
и как потом удалять определенные вкладки.
Создаю TTabControl, применяю стиль с крестиком в верхнем правом углу.
Можно ли как-то получить индекс вкладки при наведении мыши.

procedure TfrMain.SpeedButton2Click(Sender: TObject);
begin
  with TTabItem.Create(TabControl1) do
  begin
    Parent := TabControl1;
    Text := 'NewTab'+IntToStr(NumTab);
    StyleLookup := 'TabItem1Style1';
    StylesData['btnClose.OnClick'] := TValue.From<TNotifyEvent>(TabClose);
    NumTab:=NumTab+1;
  end;
end;

procedure TfrMain.TabClose(Sender: TObject);
var
  _activetab : Integer;
begin
  _activetab:=TabControl1.TabIndex;
  TabControl1.Delete(_activetab);
end;

В данном случае работает только если сделать вкладку активной.