title: add TMenuItem bitmap
body: <p>I want to add a bitmap to a TMenuItem created dynamically. With this code it doesn't work, I don't have the image on my menu. What's wrong?</p>
  
  <pre><code>procedure TForm3.FormCreate(Sender: TObject);
  var
     item : TmenuItem;
     icon : TIcon;
  begin
     item := TMenuItem.Create(PopupMenu1);
     item.Caption := 'coucou';
     icon := TIcon.Create;
     icon.LoadFromFile('d:\SmallIcon.ico');
     icon.Height := 16;
     icon.Width := 16;
     item.Bitmap.Canvas.Draw(0,0,icon);
     PopupMenu1.Items.Add(item);
  end;
  </code></pre>