ActiveForm中FindComponent找不到任何component(100分)

procedure TForm1.Button1Click(Sender: TObject);
var
AComponent : TComponent;
begin
AComponent := application.FindComponent('Form2');
if assigned(AComponent) then
TForm(AComponent).show
else
showmessage('Not found');
end;

以上程序在普通情况下运行正常可以把Form2显示出来。
可是放到ActiveForm下就显示不出来了。该如何解决这个问题，有没有替代的方法？

ActiveXForm 中应该没有 application

to jsxjd
我也考虑到这个问题了，可是该如何解决呢？
用过FindClass但也是不行啊。

请各位大侠帮忙啊。