用activeform封装应用程序后打开生成的htm文件出错（急！！） ( 积分: 50 )

我用activeform封装我原有的应用程序生成.ocx，我封装第一个
.ocx没问题，但我再封装其它的应用程序后打开htm文件下载.ocx控件的时候老是出错提示
出错的信息是：

Microsoft Internet Explorer 遇到问题需要关闭。
我们对此引起的不便表示抱歉。...........
最后是： 调试 发送错误信息 不发送 三个按钮。

我直接用activeform生成.ocx是没问题但我要是封装一个应用程序就来问题了
比如：我在ActiveFormx上再创建一个我的应用程序的窗体
procedure TActiveFormx.ActiveFormCreate(Sender: TObject);
begin
CrossHairForm := TCrossHairForm.Create(Self);
CrossHairForm.Parent := Self;
CrossHairForm.Align := alClient;
CrossHairForm.BorderStyle := bsNone;
CrossHairForm.Visible := true;
CrossHairForm.InitializeDeal;
end;

procedure TActiveFormX.ActiveFormDestroy(Sender: TObject);
begin
CrossHairForm.Free;
end;

这个时候生成的htm文件打开的时候就有我上面的错误问题，请问是怎么回事。

我用activeform封装我原有的应用程序生成.ocx，我封装第一个
.ocx没问题，但我再封装其它的应用程序后打开htm文件下载.ocx控件的时候老是出错提示
出错的信息是：

Microsoft Internet Explorer 遇到问题需要关闭。
我们对此引起的不便表示抱歉。...........
最后是： 调试 发送错误信息 不发送 三个按钮。

我直接用activeform生成.ocx是没问题但我要是封装一个应用程序就来问题了
比如：我在ActiveFormx上再创建一个我的应用程序的窗体
procedure TActiveFormx.ActiveFormCreate(Sender: TObject);
begin
CrossHairForm := TCrossHairForm.Create(Self);
CrossHairForm.Parent := Self;
CrossHairForm.Align := alClient;
CrossHairForm.BorderStyle := bsNone;
CrossHairForm.Visible := true;
CrossHairForm.InitializeDeal;
end;

procedure TActiveFormX.ActiveFormDestroy(Sender: TObject);
begin
CrossHairForm.Free;
end;

这个时候生成的htm文件打开的时候就有我上面的错误问题，请问是怎么回事。

跟踪进去，看看下面哪句出错
CrossHairForm := TCrossHairForm.Create(Self);

CrossHairForm.InitializeDeal;

TCrossHairForm的parant是不是不能是TActiveFormx？而必须是application?