>>36
　色んな方法があります。
　一つの方法は、パネルを貼り付けて
ダブルクリックして

procedure TForm1.Panel1Click(Sender: TObject);
begin
with Sender as TPanel do BevelOuter:=TBevelCut(ord(BevelOuter) xor 3);
end;