StringGrid, выровнять текст и ячейки

{ 
fileName = OpenDialog1->FileName;
 
 
TStringList *Lst = new TStringList; // Где числа через пробел
Lst->LoadFromFile(fileName);
    Lst->LoadFromFile(fileName);
 
    for (int i = 0; i < Lst->Count; ++i)
    {
        TStringDynArray arr = SplitString(Lst->Strings[i], " ");
        for (int j = 0; j < arr.Length; j++)
        {
            StringGrid1->Cells[j][i+1]=arr[j];
        }
    }
 
    delete Lst;
}

#include <memory>
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
   std::auto_ptr<TStringList> L (new TStringList);
   L->LoadFromFile("c:\\tmp\\1.txt", TEncoding::GetEncoding(866));
   for(int i = 0; i < L->Count; i++)
     {
       StringGrid1->Rows[i + StringGrid1->FixedRows]->Delimiter = ' ';
       StringGrid1->Rows[i + StringGrid1->FixedRows]->DelimitedText = L->Strings[i];
     }
}

     //Растягиваем таблицу по форме
for (ptrdiff_t i=0; i< ptrdiff_t(StringGrid1->ColCount); i++)
        StringGrid1->ColWidths[i]=
            StringGrid1->Width/StringGrid1->ColCount;

void __fastcall TForm2::Button1Click(TObject *Sender)
{
   #define G StringGrid1
   std::auto_ptr<TStringList> L (new TStringList);
   L->LoadFromFile("c:\\tmp\\3.txt");
   G->RowCount = L->Count + 1;
   for(int i = 0; i < L->Count; i++)
     {
        G->ColCount = L->Strings[i].Length() - (StringReplace(L->Strings[i], " ", "", TReplaceFlags() << rfReplaceAll).Length()) + 1;
        G->Rows[i + G->FixedRows]->Delimiter = ' ';
        G->Rows[i + G->FixedRows]->DelimitedText = L->Strings[i];
     }
   for(int i = 0; i < G->ColCount; i++)
     {
        int wMax = 0;
        for(int j = 0; j < G->RowCount; j++)
          {
             int w = G->Canvas->TextWidth(G->Cells[i][j]);
             wMax = w > wMax ? w : wMax;
          }
        G->ColWidths[i] = wMax + 10;
     }
}