怎么实现在Webbrowser中显示的网页的繁简体切换功能(100分)

如何简单实现Webbrowser中显示的网页的繁简体切换功能（big5->gb2312 gb2312->big5）

。

　　procedure SetCharSet(AWebBrowser: TWebBrowser; ACharSet: String);
　　var
　　　RefreshLevel: OleVariant;
　　Begin
　　　IHTMLDocument2(AWebBrowser.Document).Set_CharSet(ACharSet);
　　　RefreshLevel :=7;　　　　　　　　　　　　　　//这个7应该从注册表来，帮助有Bug。
　　　AWebBrowser.Refresh2(RefreshLevel);
　　End;

honghs兄太棒了，谢啦！