[YVitaliy]

Поэкспериментируй с свойством TPanel.BevelOuter:

Код:

Panel1.BevelOuter:=bvLowered;//В событии OnMouseDown
.......
Panel1.BevelOuter:=bvRaised;//В событии OnMouseUp

Если на панели лежит Image, то события, соответственно, для Image (или для обеих).