Вот код для получения суммы чётный элементов побочной диагонали.
sp2-это spinedit
begin
sum:=0;
for i:=0 to sp1.value do
if sg1.cells[i+(sp2.value),i] div 2 then
sum:=sum+cells[i+(sp2.value];
label2.Caption:=sum;
мозг мой ваще деградировал

можно подправить код?

спасибо.