Вычислить произведение элементов матрицы, которые не равны нулю

#include <Math.hpp>
...
//Задаем размеры матрицы из значений, введенных пользователем
int r, c;
if((!TryStrToInt(Edit1->Text, r)) || (!TryStrToInt(Edit2->Text, c))) {
  ShowMessage("Неверно указаны размеры матрицы!");
  return;
}
//Объявляем динамический двумерный массив указанного размера и задаем размеры сетки
int** Q = new int* [r];
for(int i = 0; i < r; i++)
  Q[i] = new int [c];
StringGrid1->RowCount = r;
StringGrid1->ColCount = c;
//Объявляем динамический массив результатов
int* B = new int [c];
//Заполняем массив случайными числами в диапазоне от -9 до 9, 
//отображаем массив в сетке строк
//перемножаем ненулевые элементы каждого столбца и формируем результат
String rez = "";
for(int j = 0; j < c; j++) {
  B[j] = 1;
  for(int i =0; i < r; i++) {
    Q[i][j] = RandomRange(-9, 10);
    StringGrid1->Cells[j][i] = IntToStr(Q[i][j]);
    if(Q[i][j]) B[j] *= Q[i][j];
  }
  rez += IntToStr(B[j]) + "\t";
}
//Выводим результат
Label1->Caption = rez;
//Освобождаем память от массивов
for(int i = 0; i < r; i++)
  delete [] Q[i];
delete [] B;