Поместить картинку в DrawGrid из указанного пути

TImage* Image[1000];
    int f = 1; int h = 20;
    for( int y = StringGrid1->FixedRows ; y < StringGrid1->RowCount; y++)
    {
       for(int z = 0; z<100; z++)
          {
             if (StringGrid1->Cells[0][y].Pos(z))
             {
 
               Image[f]=new TImage(Form1);
                Image[f]->Parent=Form1;
                Image[f]->Picture->Bitmap->LoadFromFile("12_50x50.bmp"); // из файла
                 Image[f]->Stretch=true;
                Image[f]->Left = 10;
                Image[f]->Top = h;
                Image[f]->Width = 50;
                Image[f]->Height = 50;
                    f++; h = h+60;
             }
        }
    }

if(
     (rec_event.event_type == EVT_DET_ALARM)||
     (rec_event.event_type == EVT_MB400_ALARM)
  )
           {
                        TFrame *red= new TFrame6(Frame6);
                        red->Left = pm.d[devLoop].d_X[devAdr];
                    red->Top = pm.d[devLoop].d_Y[devAdr];
                    red->Parent = Form26->Panel22;
                   }

Image1-> OnMouseDown =DinDown;
Image1-> OnMouseEnter =DinDown1;
Image1-> OnMouseLeave =DinDown2;

const int SC_DRAGMOVE = 0xF012;
 
// добавить метод "таскание карты" (не забываем про добавление заголовка в класс формы)
void __fastcall TForm1::MapDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    TImage *im = static_cast<TImage*>(Sender);
    ReleaseCapture();
    im->Parent->Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    tagTRACKMOUSEEVENT tme;
    tme.cbSize = sizeof(tme);
    tme.dwFlags = TME_LEAVE;
    tme.hwndTrack = im->Parent->Handle;
    ::TrackMouseEvent(&tme);
 }
 
// поправить метод "таскание картинок"
void __fastcall TForm1::DinDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    TImage *im = static_cast<TImage*>(Sender);
    if (im->Parent->Parent != Panel2) // Раз карта лежит на Panel2, то и картинку надо перетаскивать на Panel2
    {
        im->Parent->Parent = Panel2; // Здесь тоже
        // Поскольку Panel2 не находится в цепочке Parent-ов ScrollBox-а, нельзя сразу преобразовать координаты
        // приходится делать это через координаты относительно формы
        TPoint p = ScrollBox1->ClientToParent(Point(im->Parent->Left,im->Parent->Top), this);
        // а теперь - в систему координат Panel2
        p = Panel2->ParentToClient(p, this);
        im->Parent->Left = p.x;
        im->Parent->Top = p.y;
    }
    ReleaseCapture();
    im->Parent->Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    tagTRACKMOUSEEVENT tme;
    tme.cbSize = sizeof(tme);
    tme.dwFlags = TME_LEAVE;
    tme.hwndTrack = im->Parent->Handle;
    ::TrackMouseEvent(&tme);
 }
 
// и в конструкторе формы:
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Image1-> OnMouseDown = MapDown; // Вот тут, назначить метод для таскания карты вместо того, что было раньше
    Image1-> OnMouseEnter = DinDown1;
    Image1-> OnMouseLeave = DinDown2;
}

void __fastcall TForm1::DinDown(TObject *Sender, TMouseButton Button,
    TShiftState Shift, int X, int Y)
{
    const int SC_DRAGMOVE = 0xF012;
    TImage *im = static_cast<TImage*>(Sender);
    if (im->Parent->Parent != Panel2)
    {
 
        // вот оно
        int pos = im->Parent->Top;
        for(int i = 2; i < f; i++)
        {
            if(Panel[i]->Top > pos)
            {
                Panel[i]->Top -= 60; // у тебя же на 60 отличаются Top-ы всех панелек?
            }
        }
 
        im->Parent->Parent = Panel2;
        TPoint p = ScrollBox1->ClientToParent(Point(im->Parent->Left, im->Parent->Top), this);
        p = Panel2->ParentToClient(p, this);
        im->Parent->Left = p.x;
        im->Parent->Top = p.y;
    }
    ReleaseCapture();
    im->Parent->Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    tagTRACKMOUSEEVENT tme;
    tme.cbSize = sizeof(tme);
    tme.dwFlags = TME_LEAVE;
    tme.hwndTrack = im->Parent->Handle;
    ::TrackMouseEvent(&tme);
}

int pos = im->Parent->Top;
for(int i = 2; i < f; i++)
        {
            if((Panel[i]->Top > pos)&&(Panel[i]->Parent == ScrollBox1))//тут добавил
                    {
                        Panel[i]->Top -= 60; // у тебя же на 60 отличаются Top-ы всех панелек?
                    }
        }

Panel2->BringToFront();
Panel2->Left=0;
Panel2->Top=0;
std::auto_ptr<Graphics::TBitmap>bmp(new Graphics::TBitmap);
bmp->SetSize(Panel2->Width, Panel2->Height);
::BitBlt(bmp->Canvas->Handle, 0, 0, Panel2->Width, Panel2->Height,
::GetDC(Panel2->Handle), 0, 0, SRCCOPY);
bmp->SaveToFile("c:\\test\\pic.bmp");
Panel2->SendToBack();

    Panel2->BringToFront();
    Panel2->Top = 0; Panel2->Left = 0;
    if (SavePictureDialog1->Execute())
    {
    std::auto_ptr<Graphics::TBitmap>bmp(new Graphics::TBitmap);
    bmp->SetSize(Panel2->Width, Panel2->Height);
    ::BitBlt(bmp->Canvas->Handle, 0, 0, Panel2->Width, Panel2->Height,
    ::GetDC(Panel2->Handle), 0, 0, SRCCOPY);
    bmp->SaveToFile(SavePictureDialog1->FileName);
    }
    Panel2->SendToBack();

    std::auto_ptr<Graphics::TBitmap>bmp(new Graphics::TBitmap);
    bmp->SetSize(Panel2->Width, Panel2->Height);
 
    HDC hdc = ::GetDC(Panel2->Handle);
    ::BitBlt(bmp->Canvas->Handle, 0, 0, Panel2->Width, Panel2->Height, hdc, 0, 0, SRCCOPY);
    ::ReleaseDC(Panel2->Handle, hdc);
 
    bmp->SaveToFile(filename);