procedure TMainForm.UniFormCreate(Sender: TObject);

var

  S : TUniStringArray;//uniStrUtils

  I : Integer;

begin

  S := UniServerModule.ThemeManager.AllThemes;

  ThemeComboBox.Items.Clear;

  for I := Low(S) to High(S) do

    ThemeComboBox.Items.Add(S[I]);
  ThemeComboBox.Text := UniMainModule.Theme;
  ThemeComboBox.Style:= csDropDownList;  //uses Vcl.StdCtrls

end;

procedure TMainForm.ThemeComboBoxChange(Sender: TObject);

begin

    UniMainModule.Theme := ThemeComboBox.Text;

end;