Как вывести на все ячейки StringGrid

void __fastcall TForm1::Button1Click(TObject *Sender)
{
StringGrid1->Cells[((TButton*)Sender)->Tag][0] = IntToStr(RandomRange(1, 50));
((TButton*)Sender)->Enabled = true;
}

#include <Math.hpp>
...
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
   Randomize();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
   #define G StringGrid1
   for(int i = 0; i < G->RowCount; i++)
     for(int j = 0; j < G->ColCount; j++)
       G->Cells[j][i] = IntToStr(RandomRange(1, 51));
}
//---------------------------------------------------------------------------

#include <Math.hpp>
#include <memory>
...
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
   Randomize();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
   #define G StringGrid1
   std::auto_ptr<TStringList> L (new TStringList);
//Заполняем список
   for(int i = 0; i < G->RowCount * G->ColCount; i++)
     L->Add(IntToStr(i + 1));
//Перемешиваем список
   for(int i = 0; i < L->Count; i++)
     L->Exchange(i, RandomRange(0, L->Count));
//Заполняем сетку
   for(int i = 0; i < L->Count; i++)
     G->Cells[i % G->ColCount][i / G->ColCount] = L->Strings[i];
}
//---------------------------------------------------------------------------