Из ресурса JPEG

uses Vcl.Imaging.jpeg;
procedure ***;
  var
RS: TCustomMemoryStream;
JPGImage: TJPEGImage;
begin
JPGImage := TJPEGImage.Create;
try
RS:= TResourceStream.Create(HInstance, 'patch_default', RT_RCDATA);
                                     // имя ресурса
JPGImage.LoadFromStream(RS);
Image2.Picture.Graphic := JPGImage;
finally
FreeAndNil(RS);
FreeAndNil(JPGImage);
end;
end;