Bitmap - ler do resource

Ler bitmap do RES

procedure TForm1.Button1Click(Sender: TObject);

var

  Bmp: TBitmap;

begin

  Bmp := TBitmap.Create;

  Bmp.Handle := LoadBitmap(HInstance,'BITMAP_1');

  Canvas.Draw(0, 0, Bmp);

  Bmp.Free;

end;