[Aristarh Dark]

Все правильно

Причем когда прохожу по Ф8 (пошагово), то почему-то в начале procedure TMainForm.Button2Click рядом с 4мя строчками кода не появляются синие точки и Watcher подтверждает, что эти операции присвоения не выполняются

Оптимизатор их просто убрал из исходного кода, так как в начале процедуры у тебя написано:

Код:

cpx:=0;
cpy:=0;
for i:=1 to 7 do
begin
cpx:=cpx+arx[i];
cpy:=cpy+ary[i];
end;

а далее

Код:

cpx:=round(cx/7);
cpy:=round(cy/7);

поэтому первое присвоение и накопление сумыы в цикле роли никакой не играет. И еще, переменные cx, cy у тебя неопределены никак в последнем присвоении тоже непонятно что будет
по поводу вот этого:

,но при нажатии на кнопку посчитать выводит Invalid floating point operation

скажу следующее, в коде:

Код:

cx:=cpx/scale;
cy:=cpy/scale;

если предварительно не отрисовать фигуру (а значение переменной scale присваевается именно там) то падать программа будет одназначно, в противном случае работает без проблем
Ну там еще много багов, но думаю ты найдешь их сам
Учись, студент