* Display more details in error message when application is set twice

src/base/fresnel.forms.pas

@@ -282,6 +282,7 @@ type
     Property HookFresnelLog : Boolean Read GetHookFresnelLog Write SetHookFresnelLog;
     property HoverElements: TFresnelElementArray read FHoverElements write SetHoverElements;
   end;
+  TFresnelBaseApplicationClass = Class of TFresnelBaseApplication;
 
 var
   Application: TFresnelBaseApplication;
@@ -958,7 +959,7 @@ constructor TFresnelBaseApplication.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   if Application<>nil then
-    raise Exception.Create('TBaseFresnelApplication.Create BaseFresnelApplication<>nil');
+    raise Exception.Create('TBaseFresnelApplication.Create BaseFresnelApplication<>nil: '+Application.ClassName);
   Application:=Self;
   FAsyncCall:=TAsyncCallQueues.Create;
   FAsyncCall.WakeMainThreadOnCalls:=True;