[lmikle]

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

Если так, то:

Код:

function GetSum(ACol : Integer);
var
  Sum : Integer;
  I, J : Integer;
begin
  I := ACol;
  J := 0;
  While (I <= N) And (J <= M) Do // M и N - границы матрицы
    Begin
      If sg1.cells[I,J] mod 2 = 0 Then // четное
        Sum := Sum + sg1.cells[I,J];

      // сдвигаемся по диагонали
      Inc(I);
      Inc(J);
    End;
end;