From 9780607d0577980ea8d6dbc88ef74fd22be6e75a Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Wed, 2 Oct 2024 13:30:39 +0200
Subject: [PATCH] * Handle case where there is no handler

---
 packages/fcl-net/src/ssockets.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp
index c6aca5977d..20b8f31c17 100644
--- a/packages/fcl-net/src/ssockets.pp
+++ b/packages/fcl-net/src/ssockets.pp
@@ -1588,7 +1588,7 @@ begin
     SetSocketBlockingMode(Handle, bmBlocking, @FDS);
     end;
 {$ENDIF}
-  If Not IsError then
+  If (Not IsError) and Assigned(Handler) then
     begin
     IsError:=Not FHandler.Connect;
     if IsError then
@@ -1599,7 +1599,10 @@ begin
       Raise ESocketError.Create(seConnectTimeOut, [Format('%s:%d',[FHost, FPort])])
     else
       begin
-      aErrMsg:=FHandler.GetLastErrorDescription;
+      if Assigned(FHandler) then
+        aErrMsg:=FHandler.GetLastErrorDescription
+      else
+        aErrMsg:='Error connecting';
       Raise ESocketError.Create(seConnectFailed, [Format('%s:%d',[FHost, FPort]),aErrMsg]);
       end;
 end;