---

uses  Vcl.Styles, vcl.Themes;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TStyleManager.LoadFromFile('Windows10Dark.vsf');
  TStyleManager.SetStyle(TStyleManager.StyleNames[1]);
end;

　　

 //VCL 的样式文件 *.vsf 在 X:\Program Files\Embarcadero\RAD Studio\9.0\Redist\styles\vcl\