菜鸟问题(2)(20分)

我用
procedure TForm1.FormCreate(Sender:tobject);
begin
bmp1:=Tbitmap.Create ;
bmp2:=tbitmap.Create ;
bmp1.LoadFromFile('ok.bmp');
bmp2.LoadFromFile('no.bmp');
label2.Caption:=bitmap1.Items[0].Caption;
ModifyMenu(Bitmap1.Handle,
bitmap1.Items[0].MenuIndex,
mf_byPosition or mf_Bitmap,
bitmap1.Items[0].Command,
Pointer(bmp1.Handle));
bitmap1.Items[0].Tag:=integer(bmp1);
end;
试图用位图代替菜单文字,可是却只是在希望改动的菜单前加入了一个位图菜单.