Произведение тех элементов матрицы, сумма которых является максимальным четным числом

//Обработчик Button2 при нажатий
procedure TForm1.Button2Click(Sender: TObject);
var
    i,j,m,n,SumMax1,SumMax2,Min1,Min2:integer;
begin
 
 RazmerMatr:=form2.SpinEdit1.Value;
 SumMax1:=0;
 SumMax2:=0;
 Min1:=MaxInt; //скорее всего от этого надо отталк.
 for i:=0 to RazmerMatr-1 do
 for j:=0 to RazmerMatr-1 do
 begin
 
   if strtoint(sg1.cells[i,j])>=0 then
   SumMax1:=SumMax1+strtoint(sg1.cells[i,j]);
   end;
 
 
 
 if not(SumMax1 mod 2=0) then
 if odd(strtoint(sg1.cells[i, j])) and (strtoint(sg1.cells[i, j]) < Min1) then //Вот это твоё, при некоторых ответах выдаёт //огромное отрц. число. (Пример:-2232312312312)
  Min1:=strtoint(sg1.cells[i,j]);
  SumMax1:=SumMax1 - Min1;
 
 for m:=0 to RazmerMatr-1 do
 for n:=0 to RazmerMatr-1 do
 begin
   if strtoint(sg2.cells[m,n])>=0 then
   SumMax2:=SumMax2+strtoint(sg2.cells[m,n]);
 
 end;
 
 Label4.Visible:=true;
 Label4.Caption:='Суммы элементов матриц A и B равны '+inttostr(SumMax1)+' и '+inttostr(SumMax2)+' соответственно.'
end;