ttp://www.wwlnk.com/boheme/delphi/tips/tec1620.htm
を基にして
procedure Tform.NaviClick(Sender: TObject);
var
　TabSheet: TTabSheet;
　WebBrowser: TWebBrowser;
begin
　TabSheet := TTabSheet.Create(Self);
　TabSheet.Parent := PageControl1;
　TabSheet.PageControl := PageControl1;
　TabSheet.Caption := '読込中…';
　WebBrowser := TWebBrowser.Create(Self);
　TOleControl(WebBrowser).Parent := TabSheet;
　WebBrowser.OnCommandStateChange := WebBrowser1CommandStateChange;
　WebBrowser.OnNavigateComplete2 := WebBrowser1NavigateComplete2;
　WebBrowser.OnTitleChange := WebBrowser1TitleChange;
　WebBrowser.OnStatusTextChange := WebBrowser1StatusTextChange;
　webBrowser.OnNewWindow2 := WebBrowser1NewWindow2;
　WebBrowser.Align := alClient;
　WebBrowser.RegisterAsBrowser := True;
　WebBrowser.Navigate(URLs.Text, EmptyParam, EmptyParam,
　EmptyParam, EmptyParam);
end;
として動的にページを作り
PageControl1.ActivePage.Free;
でそのページを削除したとき、確かに削除されるのですが
プログラム終了時に例外が出ます。何が悪いのでしょうか？
(Win2Ksp4+D7Pro+IE5.5sp2)