Сейчас я начну ругаться. Матом. Громко, долго и обреченно.
Снимать вопрос было явно рано, ибо ни в чём ты не разобрался и ничего не понял. Абсолютно ничего.
Взгляни на такой вот кусочек своего кода "по Дипломатовскому варианту":
For a=0 To 9
t.track=New track
t\obj[a]=CopyEntity (originalTrack)
;...
Next
А теперь, пожалуйста, распиши на бумажке алгоритмически,
что эта хрень делает?!
Она зачем-то создает 10 обьектов типа "Т" и
в один из элементов массива "Обж" для каждого обьекта записывает по хендлу куба!
...яфшоке...
Строку "t.track=New track" вынеси к чертовой бабушке из этого цикла, просто перетащи ёё вверх!
Тогда у тебя будет всего один обьект типа, но с нормально заполненным массивом.
И тогда ветвление "If t\obj1[a]<>0 Then" тебе не нужно будет.
И тогда ну никак не должно тебе прийти в голову отождествлять "For t.track=Each track" и "For a=0 To 9"- потому что первое- это цикл по обьектам типа, а второе- это цикл по элементам массива, принадлежащему одному из обьектов.
Кстати, не должен быть и не может быть цикл по элементам массива находиться снаружи цикла по обьектам типа, которым эти самые массивы принадлежат.
Резюме: Забыть о типах нафиг, как о страшном сне. Снести Блиц, поставить КуБасик, купить к нему хороший самоучитель и учиццо основам основ! Долго и упорно... Ну, или найти на форуме советчика, менее припадошного, чем я...