* Set global CustomApplication variable

git-svn-id: trunk@14795 -

packages/fcl-web/src/fpcgi.pp

@@ -32,10 +32,13 @@ Var
   
 Implementation
 
+uses CustApp;
+
 Procedure InitCGI;
 
 begin
   Application:=TCGIApplication.Create(Nil);
+  CustomApplication:=Application;
 end;
 
 Procedure DoneCGI;