* Fixed bug #26130

git-svn-id: trunk@27746 -

packages/fcl-net/src/ssockets.pp

@@ -374,7 +374,6 @@ begin
   If (FHandler=Nil) then
     FHandler:=TSocketHandler.Create;
   FHandler.SetSocket(Self);
-  FHandler:=AHandler;
 end;
 
 destructor TSocketStream.Destroy;