Cannot assign to a read-only property

[LLIALLIJIbIK]

Доброй ночи или утра.

for k:=0 to 33 do begin
for j:=0 to min(4,High(Mass)) do begin
Form9.Chart1.Series[j]:=TLineSeries.Create(self); <<< ругается здесь
Form9.Chart1.Series[j].Name:='Mechanism'+IntToStr(j+1);
Form9.Chart1.Series[j].ParentChart:=Chart1;
Form9.Chart1.Series[j].AddXY(Frequency[k],Resistance[j,k]);
Force[j,k]:=(StrToFloat(vibrations[k])/(2*pi*Frequency[k]))*Resistance[j,k];
end;
end;

Кто не спит, помогите.

[LLIALLIJIbIK]

А так ошибка list index out of bounds 0

for k:=0 to 33 do begin
for j:=0 to min(4,High(Mass)) do begin
Series:=TLineSeries.Create(self);
Series.Name:='Mechanism'+IntToStr(j+1);
Series.ParentChart:=Chart1;
Form9.Chart1.Series[j].AddXY(Frequency[k],Resistance[j,k]);
Force[j,k]:=(StrToFloat(vibrations[k])/(2*pi*Frequency[k]))*Resistance[j,k];
end;
end;

[phomm]

Form9.Chart1.Series[j]:=TLineSeries.Create(self); <<< ругается здесь

выкинуть
заменить на

Form9.Chart1.AddSeries(TLineSeries.Create(self));

Убрать

Form9.Chart1.Series[j].ParentChart:=Chart1;

Вроде так.

Но судя по коду, Вы явно что-то делаете не так. Охренилион (порядка 100) серий на один чарт пихать, надо явно быть извращенцем.
ПС. Насчёт out of bounds - включите настройку (project->options->compiler) компилятора Range check error

[LLIALLIJIbIK]

Спасибо, добрый человек. Теперь я наконец смогу вздремнуть.