String sarray;
     int a[3][3]={{1,2,3},{3,2,1},{9,8,7}};
     for(int i=0;i<3;i++)
     {
      for(int j=0;j<3;j++)
      {
        sarray+=IntToStr(a[i][j])+"\t";

      }
       sarray+="\r\n";

     }
     Memo1->Lines->Add(sarray);