问一个基础有关问题，多谢

问一个基础问题，谢谢
procedure   TForm1.Panel1DockOver(Sender:   TObject;   Source:   TDragDockObject;
X,   Y:   Integer;   State:   TDragState;   var   Accept:   Boolean);
begin
edit2.Text:=(source   as   Tbutton).name   + '经过 '+   (sender   as   Tpanel).Name;
end;

[Error]   Unit1.pas(41):   Incompatible   types:   'TButton '   and   'TDragDockObject '
请问这是哪里错误了?   为什么？解决？

谢谢

[解决办法]
那应该怎么做啊
——————————————————
首先source 不时一个与Tbutton类兼容的对象。
其次我不知道你想要实现什么功能?
[解决办法]
TDragDockObject继承自TDragObject一系，其直接源于TObject，而TButton完全不是这一系的，是源于TCompoment，所以不能用as转换。你的这个功能估计是无法实现的，想拖动一个按钮到一个panel上。TButton应该不能Drag的吧