TInetSocket connect timeout support under 1 second fix.

Summary

The TInetSocket's CheckSocketConnectTimeout function has the microseconds field (tv_usec) of locTimeVal (PTimeVal) variable always zero.

What is the current bug behavior?

Cannot set connect timeout smaller than 1 second ( 1000 milliseconds ) .

What is the behavior after applying this patch?

Values down to 1 millisecond can be set to connect timeout.

Relevant logs and/or screenshots

// Return true if a timeout happened. Will only be called in case of eWouldBlock.
function TInetSocket.CheckSocketConnectTimeout(ASocket: cint; AFDSPtr: Pointer; ATimeVPtr: Pointer): TCheckTimeoutResult;

var
  Err,ErrLen : Longint;
  Res : LongInt;
  locTimeVal: PTimeVal;
  locFDS: PFDSet;

begin
  locTimeVal := PTimeVal(ATimeVPtr);
  locFDS := PFDSet(AFDSPtr);
  locTimeVal^.tv_usec := 0;  --> changed to (FConnectTimeout mod 1000) * 1000;
  locTimeVal^.tv_sec := FConnectTimeout div 1000;