1:
2:
3:

BMP BITMAP DISCARDABLE "Test.bmp"
JPG RCDATA DISCARDABLE "Test.jpg"
PNG RCDATA DISCARDABLE "Test.png"					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

{$R 'Test.RES'}

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TResourceStream; 
  jpg: TJpgImage;
begin
  Image1.Bitmap.LoadFromResourceName(HInstance, 'BMP', RT_BITMAP); // OK
  
  Stream:=TResourceStream.Create(HInstance, 'JPG', RT_RCDATA);
  jpeg := TJpegImage.Create; 
  jpg.LoadFromResourceStream(Stream); // OK
  Image2.Picture.Assign(jpg);
  
  Stream:=TResourceStream.Create(HInstance, 'PNG', RT_RCDATA);
  Image1.Picture.Graphic.LoadFromStream(Stream); // Nicht OK
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var PNGObjekt : TPNGObject;
begin
  // mit Dateien
  PNGObjekt:=TPNGObject.Create;
  PNGObjekt.LoadFromFile('bild.png');
  PNGImage.Picture.Assign(PNGObjekt);
  PNGObjekt.Free;
  // mit Ressourcen
  PNGObjekt:=TPNGObject.Create;
  PNGObjekt.LoadFromResourceName(HInstance, 'PNG1');
  PNGImage2.Picture.Assign(PNGObjekt);
  PNGObjekt.Free;
end;