Не виден текст в выделенной ячейке компонента TStringGrid

void __fastcall DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) {
 
    TStringGrid *Grid = dynamic_cast<TStringGrid *>(Sender);
    if (State.Contains(gdSelected)) {
        Grid->Canvas->Brush->Color = clBlue;
        Grid->Canvas->Font->Color  = clRed;
        Grid->Canvas->FillRect(Rect);
        Grid->Canvas->TextRect(Rect, Rect.Left, Rect.Top, Grid->Cells[ACol][ARow]);
    }
}

AnsiString Str;
Str = Grid->Cells[ACol][ARow];
Grid->Canvas->TextRect(Rect, Rect.Left, Rect.Top, Str);

Grid->Cells[3][3] = ACol;
Grid->Cells[3][4] = ARow;

    for(int i = 0; i < StringGrid1->RowCount; ++i)
        for(int j = 0; j < StringGrid1->ColCount; ++j)
            StringGrid1->Cells[j][i] = "AAA";

TMethod Method;                                                       
Method.Code = DrawCell;                                             
Method.Data = Grid;                                                   
Grid->OnDrawCell = *(TDrawCellEvent*)&Method;                         //событие OnDrawCell

void __fastcall DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State)