Минимальный элемент в стрингриде

[Abay19941308]

Не могу найти минимальный элемент в каждой строке стрингрида.
Ничего не выводит в последний столбец. .

Я должен пропускать пустые ячейки и находить минимальный элемент в каждой строке и заносить его в последний столбец(мин).

А1 А2 А3 А4 Мин
А1
А2
А3
А4


код

procedure TForm2.BitBtn2Click(Sender: TObject);
var min,max,i,j,k:integer;
begin
Min:= StrToint(stringgrid1.Cells[1,2]);

for i:=1 to stringgrid1.Colcount-1 do
for j:=1 to stringgrid1.rowcount-1 do


if (stringGrid1.Cells[i,j] = '')  then continue
 else
 if  StrToint(Stringgrid1.Cells[i,j])<min then
 Min:=strtoint(stringgrid1.Cells[i+1,j]);

end;

[Stilet]

var min,max,i,j,k:integer;
begin
Min:= StrToint(stringgrid1.Cells[1,2]);

for i:=1 to stringgrid1.rowcount-1 do begin
 min:=strtointDEF(stringgrid1.Cells[i,1],0);
 for j:=2 to stringgrid1.Colcount-2 do begin
  k:=strtointDEF(stringgrid1.Cells[i,j],0);
  if k<min then min:=k;
 end;
 stringgrid1.Cells[i,stringgrid1.Colcount-1] :=IntToStr(min);
end;

[northener]

Тогда уж

strtointDEF(stringgrid1.Cells[],MaxInt);

[Abay19941308]

Спасибо большое!!!
А как сделать чтобы пучтые ячейки не считал.