How to apply a custom style to a custom Firemonkey component using Delphi Seattle
<p>I have a custom Delphi component created for Firemonkey (fmx).  I now need to apply my custom style to the component.  The style is saved in a resource.  Previously this was done in the <code>GetStyleObject</code> method by calling <code>TStyleManager.LoadFromResource</code>.  </p>

<p>This method (<code>LoadFromResource</code>) does not exist anymore in Delphi 10 Seattle for the Firemonkey framework.</p>

<p>My code in XE7 was working through the <code>LoadFromResource</code>:</p>

<pre><code>function TFMXPic.GetStyleObject: TFmxObject;
var
style : string;
begin
  if (StyleLookup = '') then
  begin
    style := GetClassStyleName;
    Result := TControl(TStyleManager.LoadFromResource(HInstance,
    style, RT_RCDATA));
    Exit;
  end;
  Result := inherited GetStyleObject;
end;
</code></pre>

<p>How do I achieve this in Delphi 10 Seattle?</p>