Найти сумму положительных элементов матрицы

Дана действительная матрица NxM. Необходимо найти сумму положительных элементов матрицы. использовать stringgrid

Сдвиг указателя в StringGrid на следующую ячейку

Код, который сдвигает указатель вправо на следующую ячейку, при достижении последнего столбца, сдвиг указателя в начало и переход на следующую строку. При достижении последней ячейки происходит переход в 1-ю ячейку.