Компонент для вывода двухмерного массива

 for (int i = 0; i <= StringGrid1->ColCount - 1; i++)
   {
       for (int j = 0; j <= StringGrid1->RowCount - 1; j++)
       {
          StringGrid1->Cells[i][j] = IntToStr(mas[i][j]);
       }
    }

Application->ProcessMessages();

for (int i = 0; i <= StringGrid1->ColCount - 1; i++)
   {
       for (int j = 0, ix; j <= StringGrid1->RowCount - 1; j++)
       {
          StringGrid1->Cells[i][j] = IntToStr(mas[i][j]);
          Sleep(100);
          Application->ProcessMessages();
       }
    }

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    static int i = 0, j = 0;
    StringGrid1->Cells[i][j] = IntToStr(mas[i][j]);
    if(++j >= StringGrid1->RowCount)
    {
        j = 0; i += 1;
        Timer1->Enabled = (i != StringGrid1->RowCount);
    }
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
    for (int i = 0; i <= StringGrid1->ColCount - 1; i++)
 
    {
       for (int j = 0, ix; j <= StringGrid1->RowCount - 1; j++)
       {
          StringGrid1->Cells[i][j] = "*";
          Sleep(100);
          Application->ProcessMessages();
       }
    }
}
//---------------------------------------------------------------------------