Сохранение фото в StringGrid

//процедура отрисовки ячейки
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    TStringGrid *g = static_cast<TStringGrid*>(Sender);
    if(g->Objects[ACol][ARow]) { // В отрисовываемой ячейке есть картинка?
        //дописать размер картинки!!
        g->Canvas->Draw(Rect.Left, Rect.Top,
        (Graphics::TBitmap*)g->Objects[ACol][ARow]);
    }
}
//---------------------------------------------------------------------------
 
// Это обработка пункта "Добавить картинку в ячейку"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(StringGrid1->Objects[StringGrid1->Col][StringGrid1->Row]) return;
    if(OpenPictureDialog1->Execute())
    {
        Graphics::TBitmap *bm = new Graphics::TBitmap;
        bm->LoadFromFile(OpenPictureDialog1->FileName);
        // Сохраняем указатель на объект TBitmap прямо в Objects грида
        StringGrid1->Objects[StringGrid1->Col][StringGrid1->Row] = (TObject*)bm;
    }
}
//---------------------------------------------------------------------------
 
//Удаление связанных с ячейкой объекты
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
     for (int i = 0; i < StringGrid1->RowCount; i++)
        for (int j = 0; j < StringGrid1->ColCount; j++)
            if (StringGrid1->Objects[j][i])
                delete reinterpret_cast<TBitmap*>(StringGrid1->Objects[j][i]);
}
//---------------------------------------------------------------------------