* TSocketHandler.Select: set LastError

packages/fcl-net/src/ssockets.pp

@@ -422,6 +422,10 @@ begin
     CheckSet(FDSW,sosCanWrite);
     CheckSet(FDSE,sosException);
     end;
+  if Res<0 then
+    FLastError:=SocketError
+  else
+    FLastError:=0;
 end;
 
 function TSocketHandler.CanRead(TimeOut : Integer): Boolean;