Fix typo

Author: silvioprog

Source/BrookHTTPServer.pas

@@ -1015,28 +1015,28 @@ procedure TBrookHTTPServer.DoOpen;
     FSecurity.Validate;
     if FHostName <> EmptyStr then
     begin
-      if not Assigned(sg_httpsrv_tls_listen3) then
+      if not Assigned(sg_httpsrv_tls_listen4) then
         raise ENotSupportedException.Create(SBrookTLSNotAvailable);
-      FActive := sg_httpsrv_tls_listen3(FHandle,
+      FActive := sg_httpsrv_tls_listen4(FHandle,
         M.ToCNullableString(FSecurity.PrivateKey),
         M.ToCNullableString(FSecurity.PrivatePassword),
         M.ToCNullableString(FSecurity.Certificate),
         M.ToCNullableString(FSecurity.Trust),
         M.ToCNullableString(FSecurity.DHParams),
-        M.ToCNullableString(FSecurity.Priorities), FPort, FThreaded);
+        M.ToCNullableString(FSecurity.Priorities), M.ToCString(FHostName),
+        FPort, FBacklog, FThreaded);
     end
     else
     begin
-      if not Assigned(sg_httpsrv_tls_listen4) then
+      if not Assigned(sg_httpsrv_tls_listen3) then
         raise ENotSupportedException.Create(SBrookTLSNotAvailable);
-      FActive := sg_httpsrv_tls_listen4(FHandle,
+      FActive := sg_httpsrv_tls_listen3(FHandle,
         M.ToCNullableString(FSecurity.PrivateKey),
         M.ToCNullableString(FSecurity.PrivatePassword),
         M.ToCNullableString(FSecurity.Certificate),
         M.ToCNullableString(FSecurity.Trust),
         M.ToCNullableString(FSecurity.DHParams),
-        M.ToCNullableString(FSecurity.Priorities), M.ToCString(FHostName),
-        FPort, FBacklog, FThreaded);
+        M.ToCNullableString(FSecurity.Priorities), FPort, FThreaded);
     end;
   end
   else