httpserver: make sure that socket is freed even if StartServerSocket raised an exception

packages/fcl-web/src/base/fphttpserver.pp

@@ -1464,8 +1464,11 @@ begin
         SetupConnectionHandler;
       CreateServerSocket;
       SetupSocket;
-      StartServerSocket;
-      FreeServerSocket;
+      try
+        StartServerSocket;
+      finally
+        FreeServerSocket;
+      end
       end
     else
       StopServerSocket;