//注意引用：vcl.themes, vcl.styles, IOutilsprocedure TForm1.FormCreate(Sender: TObject);var  stylename: string;begin  TStyleManager.LoadFromFile(‘F:\My\Style1.vsf‘);  for stylename in  TStyleManager.StyleNames do    listbox1.Items.Add(stylename);end;procedure TForm1.ListBox1Click(Sender: TObject);begin  TStyleManager.SetStyle(Listbox1.Items[Listbox1.ItemIndex]);end;