[aesoem]

вот...

это событие OnMouseDown

const
SC_DragMove = $F012;
begin
ReleaseCapture;
Panel2.perform(WM_SysCommand,SC_DragMove,0);
end;