Drag & drop images

eeou

I searched but couldn't find any source about drag and drop components like image. There are delphi examples but they don't work completely in c++ builder.
[code]void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Image1->BeginDrag(true);
}
//---------------------------------------------------------------------
void __fastcall TForm1::GroupBox1DragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
Accept=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GroupBox1DragDrop(TObject *Sender, TObject *Source,
int X, int Y)
{

DragDrop(Image1,X,Y);

}
[/code]
i guess my problem is in last event.