Проблема в STRINGGRID !!!

[WeRsUs]

Народ . У меня проблема со Stringgrid . Моя задача состоит в том , что бы найти в stringgrid столбец , в котором находиться наибольшее количество положительный чисел . Вот мой код :
procedure TForm1.Button2Click(Sender: TObject);
var
jmax,max,sum,i,j:integer;
begin
sum:=0;
max:=0;
for j:=0 to stringgrid1.colCount-1 do begin
sum:=0;
for i:=0 to stringgrid1.rowCount-1 do begin
if strtoint(stringgrid1.Cells[j,i])>0 then
sum:=sum+strtoint(stringgrid1.Cells[j,i]);
end;
if sum>max then begin
max:=sum;
jmax:=j;
end;
end;
for j := jmax to StringGrid1.colCount - 2 do
for I := 0 to StringGrid1.rowCount - 1 do begin
StringGrid1.Cells[j,i]:=StringGrid1.Cells[j+1,i];
end;
StringGrid1.colCount:=StringGrid1.c olCount-1;
я заполняю Stringgrid кнопкой рандомно , мне выводиться какой то массив . Проблема состоит в том , что когда в массиве есть несколько столбцов , в которых одинаковое количество положительных чисел , то мне нужно удалять первый такой столбец , а удаляет самый последний . И я не знаю как так сделать .

[Don Karleone]

используйте цикл с downto
и еще, sum:=sum + strtoint(stringgrid1.Cells[j,i]) - наверное надо Inc(Sum) вам ведь нужно найти кол-во положительных эл-тов, а не их сумму.

[WeRsUs]

а можешь показать как ?

[Don Karleone]

на счет downto я тупанул, это если бы у тебя проверялось по условию Sum >= Max.
Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Jmax, Max, Sum, i, j: integer;
begin
  Max:=0;
  for j:=0 to StringGrid1.ColCount - 1 do
    begin
      Sum:=0;
      for i:=0 to StringGrid1.RowCount - 1 do
        if StrToInt(StringGrid1.Cells[j,i]) > 0 then Inc(Sum);
      if Sum > Max then
                       begin
                         Max:=Sum;
                         Jmax:=j;
                       end;
    end;

  for j:=Jmax to StringGrid1.ColCount - 2 do
    for i:=0 to StringGrid1.RowCount - 1 do
      StringGrid1.Cells[j,i]:=StringGrid1.Cells[j+1,i];

  StringGrid1.ColCount:=StringGrid1.ColCount - 1;
end;

[WeRsUs]

не не работает . теперь оно удаляет просто последний столбец при любом результате