请教添加一个IE工具条的方法！(50分)

如何做一个像FlashGetBar一样加载在IE的工具条？也就像 yahoo 导航条一样的！

procedure TForm1.BitBtn1Click(Sender: TObject);
var
rg:Tregistry;
begin
rg:=Tregistry.create;
rg.rootkey:=HKEY_LOCAL_MACHINE;
rg.openkey('SOFTWARE/MICROSOFT/INTERNET EXPLORER/EXTENSIONS/{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);

rg.writestring('BUTTONTEXT',Ewenzi.text)
//按钮的显示文字
rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
rg.writestring('DEFAULT VISIBLE','YES');
rg.writestring('EXEC',Echxu.text)
//按钮对应的应用程序
rg.writestring('ICON',Etubiao1.text)
//按钮的静止图标
rg.writestring('HOTICON',Etubiao2.text)
//按钮的浮动图标

rg.closekey;
rg.free;
end;

HD_Copy: 这样做的话，虽然 DEFAULT VISIBLE=YES，但是还是不能默认显示出来，还要
手动添加，为什么？

不过！我说的是工具条(ToolBar)而不是工具按钮(ToolButton),请帮我解决一下，谢谢！

谢谢！我已经找到答案了！
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1248260
http://www.euromind.com/iedelphi/ie5tools/bandobjects.htm