[san-46]

Зачем так сложно?
Вот работающий код:

Код:

{$R uuu.res}

procedure TForm1.Button1Click(Sender: TObject);
var
   MyBmp: TBitmap;
begin
  MyBmp := TBitmap.Create;
  try
    MyBmp.LoadFromResourceName(HInstance, 'MY_BMP');
    Image1.Picture.Assign(MyBmp);
//    Canvas.Draw(10, 10, MyBmp); или так, если картинка должна быть на форме
  finally
    MyBmp.Free;
  end;
end;

Текстовый файл для компиляции ресурса:
MY_BMP BITMAP "uuu.bmp"
Проверено на картинке с глубиной цвета 24 бит.

Особенность. Наименование ресурса должно быть заглавными буквами и в текстовом файле и при указании в параметрах процедуры загрузки ресурса.
К DelphiWorld следует относится настороженно: там много ошибок и не работающего кода