Explorar o código

* Fixed bug #26130

git-svn-id: trunk@27746 -
michael %!s(int64=11) %!d(string=hai) anos
pai
achega
eb32f7bc2e
Modificáronse 1 ficheiros con 0 adicións e 1 borrados
  1. 0 1
      packages/fcl-net/src/ssockets.pp

+ 0 - 1
packages/fcl-net/src/ssockets.pp

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