unbroke build for anything non Windows and non-Unix, where the nonblocking code is disabled anyway

git-svn-id: trunk@39572 -

packages/fcl-net/src/ssockets.pp

@@ -1076,12 +1076,14 @@ end;
 
 procedure TInetSocket.Connect;
 
+{$IFDEF HAVENONBLOCKING}
 Const
  {$IFDEF UNIX}
     ErrWouldBlock = ESysEInprogress;
  {$ELSE}
     ErrWouldBlock = WSAEWOULDBLOCK;
  {$ENDIF}
+{$ENDIF}
 
 Var
   A : THostAddr;