Обращение к формам одного типа

[Zo0M]

Имеются 2 формы. Одна из них MDI-parent, вторая MDI Child
При создании второй формы на ToolBar`е первой формы появляется SpeedButton

CountBut:=CountBut+1;
TBut:=TSpeedButton.Create(nil);
TBut.Caption:=CountBut;
TBut.Parent:=Form1.ToolBar1;
TBut.Tag:=CountBut;

И появляется вторая форма

Form2:=TForm2.Create(nil);
Form2.Caption:='Окно #  '+IntToStr(CountBut);
Form2.Tag:=CountBut;

И так нужное количество мне форм.

Потом при закрытии одной из вторых форм делаем поиск соответствующей ей кпопки по tag`у

For temp1:=0 to Unit1.CountBut-1 do
 If Form1.TB.Buttons[temp1].Tag = TForm2(Sender).Tag then
 begin
 Form1.TB.Buttons[0].Destroy;
 end;

И удаляем форму и уменьшаем количество кнопок на 1

CountBut:=CountBut-1;
Action:=caFree;

Но выдаёт ошибку List Out Index Of Bounds()

Что я делаю не так?

[MadReason]

For temp1:=0 to Unit1.CountBut-1 do
If Form1.TB.Buttons[temp1].Tag = TForm2(Sender).Tag then
begin
Form1.TB.Buttons[0].Destroy;
end;

Form1.TB.Buttons[0].Destroy;
может таки не 0?

[Stilet]

Не знаю у меня

 for i:=0 to ToolBar1.ButtonCount-1 do
  ToolBar1.Buttons[0].Free;

отрабатывает как положено.
Тебе вот это условие

If Form1.TB.Buttons[temp1].Tag = TForm2(Sender).Tag then

Мешает.

[evg_m]

For temp1:=0 to Unit1.CountBut-1 //вычисляется ОДИН раз при входе в цикл
Form1.TB.Buttons[0].Destroy//уменьшает данное значение на 1
If Form1.TB.Buttons[temp1].Tag//при tem1= СТАРОЕ значение CountBut-1 дает List Out Index Of Bounds()

чтобы такого не было переверните цикл
for temp1:=Unit1.CountBut-1 downto 0

[Zo0M]

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

Form1.TB.Buttons[0].Destroy;
может таки не 0?

Да конечно)
Там Button[temp1]

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

Не знаю у меня

 for i:=0 to ToolBar1.ButtonCount-1 do
  ToolBar1.Buttons[0].Free;

отрабатывает как положено.
Тебе вот это условие
Мешает.

А как это условие переработать?То есть вы как делаете?

з.ы Ща попробую перевернуть цикл

Кстати да, у меня почему то кнопки добавляются не в конец тулбара, а в начало.
Видимо у вас в конец, поэтому работает такая версия.
А как сделать, чтобы добавлялось в конец?