Air.Style
Amakrits.Style
AquaGraphite.style
Blend.Style
dark.style
FMX.Platform.iOS.style
FMX.Platform.Mac.style
FMX.Platform.Win.style
GoldenGraphite.Style
iOS.Style
MacBlue.Style
MacGraphite.Style
RubyGraphite.style
Windows7.Style

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.StyleFileName := '样式文件名'; //如果样式文件和 exe 同目录, 还可以省略路径
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.StyleBook := StyleBook1; //只作用于当前窗体
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StyleBook := TStyleBook.Create(Self); //默认情况下, 窗体的 StyleBook 还没有建立
  StyleBook.FileName := '样式文件';     //或者用下一行
  //StyleBook.Resource.LoadFromFile('样式文件'); //TStyleBook 是用 Resource(TStrings) 储存数据的
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.StyleLookup := 'checkbox';
end;
//在设计时可从控件的右键菜单

1、类名(去掉前面的T) + 'style' //这是独立控件的样式名称
2、类名(去掉前面的T)           //这是控件子部件的样式名称
3、既然有了命名约定, 控件可以根据自己的类名去套用, 所以会发现大多数控件的 StyleLookup 属性并无赋值
4、修改控件或子部件的样式都应该通过 StyleLookup 属性, 而不是 StyleName(我都觉得 StyleName 这个属性有点多余).

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Memo1.HScrollBar.StyleName);
  ShowMessage(Memo1.VScrollBar.StyleName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.StyleFileName := ''; //程序会自动套用默认样式
  Form1.StyleBook := nil;          //如果窗体单独设置了样式, 这样恢复
end;