[Assistant]

а если так:

Код:

var
  i, j: byte;
  p, s, n: integer;
begin
  s := 0;
  n := 0;
  for i:= 0 to 6 do
  begin
    for j:=0 to 4 do
    begin
      p := StrToInt(StringGrid1.Cells[i,j]);
      if (p div 2 = p / 2) then
        s := s+p
      else
        n := n+p;
    end;
  end;
  ShowMessage('Сумма четных: ' + IntToStr(s));
  ShowMessage('Сумма не четных: ' + IntToStr(n));
end;