1、先在Project--> Operation --->  Application ---> Appearance，把所有的皮肤都勾选了。

2、Uses  Vcl.Themes 单元；

3、填写代码

var li_Count: Integer;

begin

  Randomize;

  li_Count := High(TStyleManager.StyleNames);

  TStyleManager.SetStyle(TStyleManager.StyleNames[Random(li_Count)]);

end;