Как удалить вкладку TabSheet во время выполнения программы

[SibBear]

Т.к. один вопрос одна тема:

Есть некое подобие многостраничного InternetExplorer'a
Вкладки создаются динамически и записываются в массив как TabSheet[i]
Внутри каждой вкладки создается WebBrowser так же записывается как WebBrowser[i]

В процессе выполнения нужно удалить вкладку
Код на удаление:

procedure TMainForm.N1Click(Sender: TObject);
var Last,i,j: integer;
begin

   // удаляем WebBrowser из массива
   Last:=Length(WebBrowser)-1;
   i:=PageControl1.ActivePageIndex;

   if i<Last then
       for j:=i to Last-1 do
         begin
           stValueArr[j]:=stValueArr[j+1];
           TabSheet[j].Caption:=TabSheet[j+1].Caption;
           TabSheet[j]:=TabSheet[j+1];
           WebBrowser[j]:=WebBrowser[j+1];
         end;
   
  WebBrowser[Last].Destroy;
  TabSheet[Last].Destroy;
   
   setLength(stValueArr,Last);
   setLength(TabSheet,Last);
   setLength(WebBrowser,Last);

end;

Проблема:

Если во время удаления какаято вкладка загружалась, то вылетает ошибка, т.е. как я понимаю программа пытается загрузить страницу в уже удаленный (или передвинутый) элемент массива WebBrowser[i]
Заблокировать выполнение программы до полной загрузки всех страниц не получается, да и нерационально, т.к. можно подвесить программу на долго.
Проблема 2: Если я уже удалял вкладку 4(к примеру), а потом создал еще 10 вкладок, то удаляя снова 4ю получаю ошибку.

Посоветуйте как удалить красиво вкладку без тормозов и ошибок?

У меня PAgeControl.

[Stilet]

Ну при удалении останавливай ВебБраузер и делайему а потом и вкладке free.

[SibBear]

Не все так просто, Остановить удаляемый (i) браузер можно, а вот если следующий (i+1) браузер не загрузился до конца, то вылетает ошибка, т.к. получается путаница в массиве и программа не знает что куда грузить (догружать).

[Stilet]

.к. получается путаница в массиве и программа не знает что куда грузить (догружать).

Дык, обьясни ей. Как грузиш то?

[SibBear]

Наверху же код удаления написан. По существу ответы будут?

[Stilet]

Во-первых: Destroy замени на Free.
Во-вторых: Еще раз повторяю - Останавливай перед удалением.

[SibBear]

Я это уже пробовал. Останавливать все вкладки я не могу, остановка удаляемой не помогает. Destroy/Free эффект одинаковый - ошибка 000000000
Проблема похоже с самими массивами, но я не могу понять как все исправить.

[s.Creator]

Может для начала попробовать удалять браузер с активной вкладки?

procedure TMainForm.N1Click(Sender: TObject);
var Last,i,j: integer;
begin

   // удаляем WebBrowser из массива
   Last:=Length(WebBrowser)-1;
   i:=PageControl1.ActivePageIndex;

  WebBrowser[i].Free;
  TabSheet[i].Free;

   if i<Last then
       for j:=i to Last-1 do
         begin
           stValueArr[j]:=stValueArr[j+1];
           // TabSheet[j].Caption:=TabSheet[j+1].Caption;
           TabSheet[j]:=TabSheet[j+1];
           WebBrowser[j]:=WebBrowser[j+1];
         end;
   
   
   setLength(stValueArr,Last);
   setLength(TabSheet,Last);
   setLength(WebBrowser,Last);

end;

[SibBear]

Последовательность следующая:

Браузер(1):= Браузер(2)
Вкладка(1):=Вкладка(2)
Браузер(2):= Браузер(3)
Вкладка(2):=Вкладка(3)

Браузер(3) стоп
Браузер(3) удаляем
Вкладка(3) удаляем

Если в это время Браузер(2) не загрузился до конца, то ошибка.

Вобщем я скланяюсь к тому, что задача удалить элемент из середины динамического массива не влияя на работу остальныех элементов... Т.е. удалил 2й, а 1й и 3й в это время делают то что делали. Но не понятно как это сделать.

P.S. Зачем Вы закоментировали строку изменения названия вкладки так и не понял.

[SibBear]

Что означает результат
WebBrowser=(D1:0;D2:0;D3:0;D4: (0,0,0,0,0,0,0,0)) ?

Это мне показала программа при наведении курсора на строку при ошибке.