var 
  StyleName: string;
  SourceInfo: TSourceInfo;
  LStyle: TCustomStyleServices;
  FPreview: TVclStylesPreview;
 begin
  FPreview := TVclStylesPreview.Create(Self);
  FPreview.Parent := PanelPreview;
  FPreview.BoundsRect := PanelPreview.ClientRect;
  StyleName := 'Carbon';
 if (StyleName <>'') and (not SameText(StyleName, 'Windows')) then
 begin
   TStyleManager.StyleNames;//call DiscoverStyleResources
   LStyle := TStyleManager.Style[StyleName];
   FPreview.Caption := StyleName;
   FPreview.Style := LStyle;
   TVclStylesPreviewClass(FPreview).Paint;
 end;
 ....
 end;