Mit Firemonkey Bild aus Ressource laden

[Mavarik]

Fehler in der RC Datei?

Ich mache es so...
GlobalScale ist der Bildschirmfaktor Retina usw.

Delphi-Quellcode:

Procedure TMyForm.LoadBild(FImage:TImage;ResName:String);
var
  RS : TResourceStream;
begin
  FImage.MultiResBitmap.Clear;

  if GlobalScale < 2.0
    then begin
           RS := TResourceStream.Create(HInstance,ResName+'Low',RT_RCDATA);
           FImage.MultiResBitmap.LoadItemFromStream(RS,1.0);
           FreeAndNil(RS);
         end
    else begin
           RS := TResourceStream.Create(HInstance,ResName+'High',RT_RCDATA);
           FImage.MultiResBitmap.LoadItemFromStream(RS,2.0);
           FreeAndNil(RS);
        end;
end;

Mavarik