給MenuItem中添加Image

　　 要給MenuItem添加Image，可以和ImageList配合使用，要顯示的圖片可以用ImageIndex來指定。在本程序中添加了一個MainMenu1 : TMainMenu，在MainMenu1裡面添加了些菜單項，只有菜單二沒有指定圖片，和一個ImageList1: TImageList。在這個小的試驗裡面，Code沒有多少，主要是設置屬性。
//給ImageList1添加圖標
procedure TForm1.Button2Click(Sender: TObject);
Var
        TheBitmap : TBitmap ;
begin
        TheBitmap := TBitmap.Create ;
        TheBitmap.LoadFromFile(AppPath + 'Img\1.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;
        
        TheBitmap.LoadFromFile(AppPath + 'Img\2.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;

        TheBitmap.LoadFromFile(AppPath + 'Img\3.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;

        TheBitmap.LoadFromFile(AppPath + 'Img\4.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;

        TheBitmap.Free ;
end;