Не получается Drag&Drop компонетов

Ребята, проблема! Не получается нормально реализовать таскание одних компнентов по другим. Например TBitBtn по TPanel. Ставлю свойство DragMode в dmAutomatic у панели и кнопки и переопределяю событие onDragOver панели следующим образом:

void __fastcall TMainForm::Panel1DragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
TBitBtn *Btn = (TBitBtn *)Source;
Btn->Left = X;
Btn->Top = Y;
}

Кнопка-то таскается, но не запоминается место, за которое ее изначально потащили. И еще хотелось бы реализовать Docking (пристыковку) к другим кнопочкам на форме. Только вот как?