[freedomman]

Код:

procedure TForm1.Btn2Click(Sender: TObject);
Var
Sum : Integer;
begin
For i := 0 To SG.ColCount-1 do 
begin
Sum:=0;
  For j := 0 To SG.RowCount-1 do
  if StrToInt(SG.Cells[i,j])>0
    then Sum := Sum + StrToInt(SG.Cells[i,j]);
Memo1.Lines.Add('Сумма положительных элементов '+inttostr(i)+'-ой строки = '+inttostr(sum) );
end;
end;