PageControl ошибка при закрытие последней вкладки

[waka2ebawer]

Добрый вечер!

Имеется форма, на которой PageControl на ней создаются динамически вкладки и компоненты.

на каждой вкладке есть кнопка закрытия вкладки ее я взял из UPageControl (который во вложении)

Закрытие вкладки происходит нормально до тех пор пока не останется одна вкладка и при нажатии на крестик выкидывает ошибку
(не всегда кстати бывает что может остаться 2 вкладки и выкидывает ошибку. Они как-то сортируются при закрытие)

Access violation as address 0053219E in module 'Project1.exe'.

я заметил что когда появляется эта ошибка то PageControl1.PageIndex возвращает мне "-1"

вот код, который прописан на закрытие вкладки

procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  TabIndex: Integer;
begin
 form1.Caption:=IntToStr(tab.PageIndex);
//ShowMessage('test '+IntToStr(Tab.PageControl.PageCount));
//Edit4.Text:=Edits[Tab.PageControl.ActivePageIndex].Text;

if GetIndexTab( Sender as TCustomTabControl, X, Y, TabIndex) then
  begin

    tab.PageControl.ActivePage.Destroy;
    
  end;

end;

Рисует кнопку закрытия вкладки

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  DrawButton(Control, TabIndex, Active );
end;

Как решить проблему?

if PageControl1.pageindex=-1 then exit а потом как-то перерисовать все?

в принципе есть идея как решить когда последняя вкладка выдает ошибку , но что делать когда 2 или 3 вкладки остаются? то ли быстро закрываю то ли они сортируются и у них индексы меняются

[Stilet]

А ты пошаговку проходил в этой процедуре? На каком именно операторе падеж?
Кстати, может быть стоит вместо OnMouseDown на OnMouseUp перейти?

[Аватар]

Скорее всего падает в каком-то обработчике событий паджеконтрола или окна, где идет обращение к вкладкам без проверки PageIndex

[waka2ebawer]

Сообщение от Stilet

А ты пошаговку проходил в этой процедуре? На каком именно операторе падеж?
Кстати, может быть стоит вместо OnMouseDown на OnMouseUp перейти?

падает на
tab.PageControl.ActivePage.Destroy;

[Slym]

вообще принято .Free;

[Stilet]

падает на
tab.PageControl.ActivePage.Destroy;

Вот ставь туда бряк и проверяй наведением мышки что из этой цепочки ушло в nil