Минимакс в прямоугольной матрице

[L3zh1Y]

Здравствуйте, помогите пожалуйста найти минимум и максимум в прямоугольной матрице. В общем я задаю количество строк и столбцов, выбираю столбец и иду по строчно в поисках максимума и минимума. До третьей строки находит, дальше выдает ерунду какую-то. После сравниваю на наличие седловой точки. В чем ошибка?

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
StringGrid1.ColCount:=strtoint(Edit1.Text);
StringGrid1.RowCount:=strtoint(Edit2.Text);
  for i:=0 to StrToint(Edit2.Text) do
  for j:=0 to strtoint(edit1.Text) do begin
    StringGrid1.Cells[j,i]:=IntToStr(random(20)-2); end;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
StringGrid1.ColCount:=StringGrid1.ColCount+1;
StringGrid1.RowCount:=StringGrid1.RowCount+1;
for j:=0 to StringGrid1.ColCount-2 do
begin
min:=1000;
max:=1;
for i:=0 to StringGrid1.ColCount-2 do
begin
if strtoint(StringGrid1.Cells[i,j])<min then min:=strtoint(StringGrid1.Cells[i,j]);
if strtoint(StringGrid1.Cells[j,i])>max then max:=strtoint(StringGrid1.Cells[j,i]);
end;
StringGrid1.Cells[StringGrid1.ColCount-1,j]:=inttostr(min);
StringGrid1.Cells[j,StringGrid1.ColCount-1]:=inttostr(max);
end;
min:=1000;
max:=1;
for i:=0 to StringGrid1.ColCount-2 do
begin
if strtoint(StringGrid1.Cells[StringGrid1.ColCount-1,i])>max then max:=strtoint(StringGrid1.Cells[StringGrid1.ColCount-1,i]);
if strtoint(StringGrid1.Cells[i,StringGrid1.ColCount-1])<min then min:=strtoint(StringGrid1.Cells[i,StringGrid1.ColCount-1]);
if max=min then Label1.Caption:='Ñåäëîâàÿ òî÷êà íàéäåíà' else Label1.Caption:='Ñåäëîâàÿ òî÷êà íå íàéäåíà';
end;
end;

[antikiler_]

procedure TForm1.Button2Click(Sender: TObject);
begin
min:=StringGrid1.Cells[0,0];
max:=StringGrid1.Cells[0,0];
for j:=0 to StringGrid1.ColCount-1 do
 for i:=0 to StringGrid1.rowCount-1 do
  begin
   if strtoint(StringGrid1.Cells[j,i])<min then min:=strtoint(StringGrid1.Cells[j,i]);
   if strtoint(StringGrid1.Cells[j,i])>max then max:=strtoint(StringGrid1.Cells[j,i]);
  end;
end;

Простое нахождение максимального и минимального в таблице

[L3zh1Y]

Не работает, выдает вообще левые числа в добавленных ячейках!

[L3zh1Y]

Не работает, выдает вообще левые числа в добавленных ячейках стринггрида=(((

[antikiler_]

Только что проверил, все отлично работае, только забыл
перевести ячейки в цифры

min:=strtoint(StringGrid1.Cells[0,0]);
max:=strtoint(StringGrid1.Cells[0,0]);

второе

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
StringGrid1.ColCount:=strtoint(Edit1.Text);
StringGrid1.RowCount:=strtoint(Edit2.Text);
  for i:=0 to StringGrid1.ColCount-1 do
  for j:=0 to StringGrid1.RowCount-1 do 
    StringGrid1.Cells[i,j]:=IntToStr(random(20)-2); 
end;