Как коректно закрыть TabSheet

[ramis-kzn]

Всем привет. я динамичести создаю вкладки TabSheet.
После достижения определенного числа вкладок, я закрываю самые старые, и у меня вылетает ошибка Access Violation.
Создаю так

page[a]:=TTabSheet.Create(self);
page[a].PageControl := PageControl1;
...

Обрабатываю так

if a>3 then page[a-3].free;

Если закоментировать закрытие вкладок то ошибка не возникает

[astecenko]

Может как-то так

if a>3 then PageControl1.Pages[a-3].Free;

Хотя не совсем понял что у Вас за массив Page? Возможен выход за PageCount

[ramis-kzn]

page это массив вкладок

var
page: array[0..100] of TTabSheet;

[evg_m]

время жизни переменной page[a-3] > время жизни объекта TPage
возможно повторное использование (в т.ч. удаление) уже несуществующего объекта => AV

использовать FreeAndNull объяснения читать здесь

[Аватар]

Можно спокойно обойтися и без массива Page

var: xTabSchet: TTabSheet;
...
if PageControl1.PageCount=3 then PageControl1.Pages[0].Free;
xTabSchet:=TTabSheet.Create(self);
xTabSchet.PageControl:=PageControl1;

Если изначально есть не удаляемые закладки, то контроль количества и индекс удаляемой с учетом количества не удаляемых закладок

[ramis-kzn]

Всем спасибо разобрался, у меня на вкладке был компонент webbrowser. Я сначала его сделал "дестрой" а потом и вкладку "фри"))