* Free extra headers after disconnect

packages/fcl-web/src/websocket/fpwebsocket.pp

@@ -1747,6 +1747,7 @@ end;
 destructor TWSServerConnection.Destroy;
 begin
   DisConnect;
+  FreeAndNil(FExtraHeaders);
   inherited;
 end;