drag&dock iptal etmek istiyorum

[gimil]

Slm arkadaşlar,

ben bir panel üzerine butonları taşıyıp bırakıyorum. Daha sonra doğru buton doğru panel üzerine bırakılmışmı onu kontrol edip eğer doğru değilse butonun panelden çıkıp eski konumuna dönmesini istiyorum. Aşağıdaki kodu deniyorum hata veriyor. Yardımlarınızı bekliyorum. teşekkürler.

procedure TForm1.Panel1DockOver(Sender: TObject; Source: TDragDockObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
if source<>panel5 then
begin
accept:=false;
end;
end;

bu kod sadece taşımayı iptal edecekti ama butonu eski konumuna nasıl göndereceğimi bilmiyorum.

[askarad]

buton koordinatını oncesinde ve sonrasında bir dizide tut. butonu tasıdıgın her hamlede istediğin hamleyi geri yada ileri yapabilirsin