TInetSocket connect timeout support under 1 second fix.

(cherry picked from commit f20b6275563a6051ea91ab2f1b1521dd287be83f)

packages/fcl-net/src/ssockets.pp

@@ -1289,7 +1289,7 @@ var
 begin
   locTimeVal := PTimeVal(ATimeVPtr);
   locFDS := PFDSet(AFDSPtr);
-  locTimeVal^.tv_usec := 0;
+  locTimeVal^.tv_usec := (FConnectTimeout mod 1000) * 1000;
   locTimeVal^.tv_sec := FConnectTimeout div 1000;
   Res:=-1;
   {$ifdef unix}