Многострочность в StringGrid

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
 
  TStringGrid *Sg = new TStringGrid(this);
  TStringList *FSl = new TStringList;
  TRect vRectM, vRectD;
  int i;
 
  int FTextHeight = ((Sg->Canvas->TextHeight("A")) + 2);
 
  //Очищаем область ячейки.
  Sg->Canvas->FillRect(Rect);
  //Определяем область прорисовки для ячейки. - Берём область ячейки
  //и исключаем по паре пикселов для создания полей.
  vRectM = Rect;
  vRectM.Left = vRectM.Left + 2;
  vRectM.Right = vRectM.Right - 2;
  vRectM.Top = vRectM.Top + 2;
  vRectM.Bottom = vRectM.Bottom - 2;
  //Формируем область прорисовки для строки текста.
  //Высота этой области сформирована на основе сведений о высоте текста.
  vRectD = vRectM;
  vRectD.Bottom = vRectD.Top + FTextHeight;
  //Формируем список строк на основе текста ячейки.
  FSl->Text = Sg->Cells[ACol, ARow];
  //Построчно прорисовываем текст.
  for (i = 0; i < FSl->Count - 1; i++)
  {
    //Если область прорисовки вышла за пределы ячейки - прерываем цикл.
    if (!IntersectRect(vRectD, vRectD, vRectM)) break;
    //Прорисовываем очередную строку текста.
    Sg->Canvas->TextRect(vRectD, vRectD.Left + 1, vRectD.Top + 1, FSl[i]);
    //Сдвигаем область прорисовки строк вниз на величину высоты текста.
    Inc(vRectD.Top, FTextHeight);
    vRectD.Bottom = vRectD.Top + FTextHeight;
  }
}

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
    TRect &Rect, TGridDrawState State)
{
    TStringGrid *grid = static_cast<TStringGrid*>(Sender);
    int FTextHeight = ((grid->Canvas->TextHeight("A")) + 2);
    grid->DefaultDrawing = false;
 
    TStringList* FS = new TStringList;
    // Очищаем область ячейки.
    grid->Canvas->FillRect(Rect);
 
    // Определяем область прорисовки для ячейки. - Берём область ячейки
    // и исключаем по паре пикселов для создания полей.
    TRect vRectM = Rect;
    vRectM.Left = vRectM.Left + 2;
    vRectM.Right = vRectM.Right - 2;
    vRectM.Top = vRectM.Top + 2;
    vRectM.Bottom = vRectM.Bottom - 2;
 
    // Формируем область прорисовки для строки текста.
    // Высота этой области сформирована на основе сведений о высоте текста.
    TRect vRectD = vRectM;
    vRectD.Bottom = vRectD.Top + FTextHeight;
 
    // Формируем список строк на основе текста ячейки.
    FS->Text = grid->Cells[ACol][ARow];
    // Построчно прорисовываем текст.
    for (int i = 0; i < FS->Count; i++)
    {
        // Если область прорисовки вышла за пределы ячейки - прерываем цикл.
        if (!IntersectRect(vRectD, vRectD, vRectM))
            break;
        // Прорисовываем очередную строку текста.
        grid->Canvas->TextRect(vRectD, vRectD.Left + 1, vRectD.Top + 1, FS->Strings[i]);
        // Сдвигаем область прорисовки строк вниз на величину высоты текста.
        vRectD.Top += FTextHeight;
        vRectD.Bottom = vRectD.Top + FTextHeight;
    }
    delete FS;
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    StringGrid1->Cells[1][1] = "one\ntwo\nthree"; // Записываем многострочный текст в ячейку
}

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    TStringGrid *grid = static_cast<TStringGrid*>(Sender);
    int FTextHeight = ((grid->Canvas->TextHeight("A")) + 5);
    grid->DefaultDrawing = false;
 
    TStringList* FS = new TStringList;
    // Очищаем область ячейки.
    grid->Canvas->FillRect(Rect);
 
    // Определяем область прорисовки для ячейки. - Берём область ячейки
    // и исключаем по паре пикселов для создания полей.
    TRect vRectM = Rect;
    vRectM.Left = vRectM.Left + 2;
    vRectM.Right = vRectM.Right - 2;
    vRectM.Top = vRectM.Top + 2;
    vRectM.Bottom = vRectM.Bottom - 2;
 
    // Формируем область прорисовки для строки текста.
    // Высота этой области сформирована на основе сведений о высоте текста.
    TRect vRectD = vRectM;
    vRectD.Bottom = vRectD.Top + FTextHeight;
 
    // Формируем список строк на основе текста ячейки.
    FS->Text = grid->Cells[ACol][ARow];
    // Построчно прорисовываем текст.
    for (int i = 0; i < FS->Count; i++)
    {
        // Если область прорисовки вышла за пределы ячейки - прерываем цикл.
        if (!IntersectRect(vRectD, vRectD, vRectM))
            break;
        // Прорисовываем очередную строку текста.
        grid->Canvas->TextRect(vRectD, vRectD.Left + 1, vRectD.Top + 1, FS->Strings[i]);
        // Сдвигаем область прорисовки строк вниз на величину высоты текста.
        vRectD.Top += FTextHeight;
        vRectD.Bottom = vRectD.Top + FTextHeight;
    }
 
    //Если количество строк > 1, и высота строки меньше требуемой, то увеличиваем её высоту
    if (FS->Count > 1) && (StringGrid1->RowHeights[ARow] < (FTextHeight * FS->Count)))
    {
       StringGrid1->RowHeights[ARow] = FTextHeight * FS->Count;
    }
 
    delete FS;
}