[Shelby]

procedure TForm1.sp2Change(Sender: TObject);
var
i,j,sum:integer;
begin
sum:=0;
for i:=0 to sp1.value do //неправильный цикл
begin
 if strtoint(sg1.cells[i+(sp2.value),i]) mod 2=0 then
 sum:=sum+strtoint(sg1.cells[i+sp2.value,i]);
 label3.Caption:=inttostr(sum);

чот выдаёт ошибку при изменении значения spinedit...
разобрался...