错在哪里？

Question

在一个静态连接的dll中的一个过程，传递APPLICATION参数。
连接DLL的主程序中间如果执行这段过程（打开图片对话框），同时又是在XP的华丽界面下，程序等到退出时会出现问题。（朴素界面不会弹出错误警告。）
Delphi 7 .WindowsXP
哪位兄弟知道这是什么原因啊？
procedure test(ha:TApplication);
var
  dlg:TOpenPictureDialog; //对不起，忘记了。就是打开图片的对话框。
  ma:Tapplication;
begin
  ma:=application;
  application := ha;
  dlg:=TOpenPicturedialog.create(application);
  try
    dlg.execute;
  finally
    dlg.free;
    application := ma;
  end;
end;