Отображение модальной формы в DLL

procedure ShowDLLForm( appHandle: HWND ); stdcall; 
begin 
  if appHandle = 0 then 
    apphandle := GetActiveWindow; 
  application.handle := appHandle; 
  try 
    with TDLLForm.Create( Application ) do 
    try 
      ShowModal 
    finally 
      free; 
    end 
  except 
    on E: Exception do 
      application.HandleException( E ); 
  end; 
  application.handle := 0; 
end;