Использование ресурсов в Delphi

{$R myres2.res}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'r1');
end;

{$R myres2.res}
 
procedure TForm1.FormCreate(Sender: TObject);
var j: TJPEGImage; r: TResourceStream;
begin
 j:=TJPEGImage.Create;
 r:=TResourceStream.Create(HInstance,'r2',RT_RCDATA);
 j.LoadFromStream(r);
 j.DIBNeeded;
 Image1.Picture.Bitmap.Assign(j);
 j.free;
 r.free;
end;

{$R myres2.res}
 
procedure TForm1.FormCreate(Sender: TObject);
var p: TPngImage;
begin
  p:=TPngImage.Create;
  p.LoadFromResourceName(HInstance,'png1');
  Image1.Picture.Assign(p);
  p.free;
end;

const  MyCur = 77;
 
{$R myres2.res}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 //LoadCursor
 Screen.Cursors[MyCur]:=LoadCursor(HInstance,'r3');
 self.Cursor:= MyCur;
end;

{$R *.dfm}
{$R myres2.res}
 
procedure TForm1.FormCreate(Sender: TObject);
var r: TResourceStream;
begin
 r:=TResourceStream.Create(HInstance,'PerfoCone',RT_RCDATA);
 r.SaveToFile('PerfoCone.ttf');
 r.free;
 AddFontResource(PChar('PerfoCone.ttf'));
 SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
 Label1.Font.Name:='PerfoCone';
end;
 
// также при закрытии приложения следует снять регистрацию
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  RemoveFontResource(PChar('PerfoCone.ttf'));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;