[user2001]

ошибка в

Код:

for I := 1 to Length(arr_d) do begin //Тут по задумке высчитываются координаты
    arr_u[i].X := arr_u[i-1].X - 2;    //точек. Должно получиться что то вроде
    arr_u[i].Y := arr_u[i-1].y + 1;    //эллиптической траектории
 
    arr_d[i].X := arr_d[i-1].X - 2;
    arr_d[i].y := arr_d[i-1].Y -1;
  end

;
ее закомментировал, и все заработало. Осталось только придумать как нормально найти координаты