Перенос строк в компоненте StringGrid

void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index, TRect &Rect,
          TOwnerDrawState State)
{
  TRect rc;
  UnicodeString strTmp;
  UnicodeString strVal = WrapText(ComboBox1->Items->operator [](Index), 20);
  int intPos, i = 0;
  ComboBox1->Canvas->FillRect(Rect);
  while((intPos = strVal.Pos("\r\n")) > 0)
  {
    strTmp = (intPos > 0) ? strVal.SubString(1, intPos - 1) : strVal;
    rc = Rect;
    rc.Top = Rect.Top + i * ComboBox1->ItemHeight;
    ComboBox1->Canvas->TextRect(rc, Rect.Left, Rect.Top + i * ComboBox1->ItemHeight, strTmp);
    strVal = strVal.SubString(intPos + 2, strVal.Length());
    i += 1;
  }
  rc = Rect;
  rc.Top = Rect.Top + i * ComboBox1->ItemHeight;
  ComboBox1->Canvas->TextRect(rc, Rect.Left, Rect.Top + i * ComboBox1->ItemHeight, strVal);
  ComboBox1->Canvas->Brush->Style = bsClear;
  ComboBox1->Canvas->Rectangle(Rect);
}

void __fastcall TForm1::Memo1Change(TObject *Sender)
{
  if(Memo1->Lines->Count == 1)
  {
        StringGrid1->Cells[0][0] = Memo1->Lines->operator [](0);
  }
  if(Memo1->Lines->Capacity == 2)
  {
        StringGrid1->Cells[1][0] = Memo1->Lines->operator [](1);
  }
}

void __fastcall TShedule::btnUploadClick(TObject *Sender)
{
    TStringList *tsl= new TStringList;
    tsl->LoadFromFile("D:\\Saved.txt");
    StrGrid1->RowCount=StrToInt(tsl->Strings[0]);
    StrGrid1->ColCount=StrToInt(tsl->Strings[1]);
    int k=2;
    for(int i=0;i<StrGrid1->RowCount;i++)
    {
        for(int j=0;j<StrGrid1->ColCount;j++)
        {
            StrGrid1->Cells[j][i]=tsl->Strings[k];
            k++;
        }
     }
    delete tsl;
    Application->MessageBoxW(L"Файл был успешно загружен.",L"Загрузка", MB_OK| MB_ICONWARNING);
}

// Путь к программе
ExtractFilePath(Application->ExeName)+"my file.txt";

struct SheduleItem
    {
        AnsiString UpperWeekSubject;
        AnsiString LowerWeekSubject;
        AnsiString UpperWeekTeacher;
        AnsiString LowerWeekTeacher;
        int UpperWeekRoom;
        int LowerWeekRoom;
    };
    SheduleItem Value[6][9];
 
во второй форме, где считываются данные, я пытаюсь к ним обращаться, но чет ошибка
    if (Redact->W_type->Items->Strings[ind2]== "Верхняя")
    {
        Value[Shedule->StrGrid1->Col][Shedule->StrGrid1->Row].UpperWeekSubject=Redact->Subj->Text;
        Value[Shedule->StrGrid1->Col][Shedule->StrGrid1->Row].UpperWeekTeacher=Redact->Teacher->Text;
        Value[Shedule->StrGrid1->Col][Shedule->StrGrid1->Row].UpperWeekRoom=StrToInt(Redact->Audit->Text);
    }
    if (Redact->W_type->Items->Strings[ind2]== "Нижняя")
    {
        Value[Shedule->StrGrid1->Col][Shedule->StrGrid1->Row].LowerWeekSubject=Redact->Subj->Text;
        Value[Shedule->StrGrid1->Col][Shedule->StrGrid1->Row].LowerWeekTeacher=Redact->Teacher->Text;
        Value[Shedule->StrGrid1->Col][Shedule->StrGrid1->Row].LowerWeekRoom=StrToInt(Redact->Audit->Text);
    }

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
   String Text;
   Text = StringGrid1->Cells[ACol][ARow];
   StringGrid1->Canvas->FillRect(Rect);
   DrawText(StringGrid1->Canvas->Handle, Text.c_str(), Text.Length(), &Rect, DT_WORDBREAK);
}