From cb05049c4ffbf9529cb1545ee497ac2a86c134ef Mon Sep 17 00:00:00 2001
From: Ondrej Pokorny <lazarus@kluug.net>
Date: Sun, 29 Aug 2021 16:38:08 +0200
Subject: [PATCH] * TSocketHandler.Select: set LastError

---
 packages/fcl-net/src/ssockets.pp | 4 ++++
 1 file changed, 4 insertions(+)

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;