Delphi の WebBrowser コンポーネントで User-Agent を変更する方法

uses
  URLMon

procedure TForm1.SetUserAgent(const UserAgent: String):
begin
  UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PChar(UserAgent), Length(UserAgent), 0);
end;

- UrlMkSetSessionOption Function
  http://msdn.microsoft.com/workshop/networking/moniker/reference/functions/ ...

- WebBrowser Control
  http://msdn.microsoft.com/workshop/browser/overview/overview.asp