Проблема косвенной рекурсии

[Теркин]

Товарищи программисты кто сможет объяснить почему не присваиваются данные динамических массивов объектов.Привожу сокращенный код

type  TRebro=class;
TYzel=class(TObject)
private
ListRebro:array of TRebro;{Массив инцидентных ребер вершины}
end;

TRebro=class(TObject)
private
ListYzel:array of TYzel;{Массив инцидентных вершин ребра}
end;

type TMatrizaInciden=Class(TObject)
private
MassivReber:array of TRebro;{массив ребер}
MassivYzlov:array of TYzel;{массив вершин}
public
procedure PerestanovkaStrok(Stroka1,Stroka2:Integer);
procedure PerestanovkaStolbov(Stolb1,Stolb2:Integer);
public
property Yzel[Stroka:Integer]:TYzel read ReadTYzel write WriteTYzel;
property Rebro[stolb:Integer]:TRebro read ReadTRebro write WriteTRebro;
end;

implementation
.....
{Данная процедура меняет местами два столбца матрицы, все работает,
также меняются местами массивы инцидентных вершин}
procedure TMatrizaInciden.PerestanovkaStolbov(Stolb1, Stolb2: Integer);
var Reb:TRebro;
begin
    
    reb:=Rebro[Stolb1];
    rebro[stolb1]:=rebro[stolb2];
    rebro[stolb2]:=reb;
end;
{Данная процедура массив инцидентных ребер местами не меняет, значения сохраняются прежними}
procedure TMatrizaInciden.PerestanovkaStrok(Stroka1, Stroka2: Integer);
Var Yz:TYzel;
begin
    
    yz:=Yzel[Stroka1];
    yzel[stroka1]:=yzel[stroka2];{в этом фрагменте присвоение массива инцидентных вершин не происходит, сохраняются прежние значения}
    yzel[stroka2]:=yz;{Аналогичная ситуация}
end;

в окне Watch выдает сообщение переменная Stroka1 недоступны из за оптимизации
yzel[stroka1]: Variable 'Stroka1' inaccessible here due to optimization
yzel[stroka2]: Variable 'Stroka1' inaccessible here due to optimization



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Теркин]

Не парьтесь "программисты" решение найдено