[Drozh]

а вот так, пишешь процедуру

Код:

procedure TForm1.PanelMouse(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 Panel: TPanel;
begin
 Panel := (Sender as TPanel);

  if Panel.BevelOuter = bvRaised then
   Panel.BevelOuter := bvLowered
  else
   Panel.BevelOuter := bvRaised;
end;

Кидаешь ее в

Код:

type
  TForm1 = class(TForm)
    ...
    procedure PanelMouse(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer); 
  private

И в Инспекторе каждой панели в свойства OnMouseUp и OnMouseDown прописываешь это процедурку