为什么用VB调用Delphi写的DLL会非法操作？

我在接口函数中用了handle参数，用来接VB的句柄。可是只要一赋值句柄就非法操作，请问是怎么回事？如果不加  application.Handle:=Han;的话就没问题，但是任务栏会多出很多任务。声明：
function show_main(Han :thandle): boolean;stdcall;
函数：
function show_main(Han :thandle): boolean;
begin
  application.Handle:=Han; //就是这句有问题。
  Frm_Main:=tFrm_Main.Create(application);
  Frm_Main.Show;
end;