diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp
index a641274768..0ce9d2ffd6 100644
--- a/packages/fcl-net/src/ssockets.pp
+++ b/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;