* call closesocket for mswindows instead of fileclose. Probably needs to be checked for Amiga and OS/2 too.

git-svn-id: trunk@25187 -

packages/fcl-net/src/ssockets.pp

@@ -246,11 +246,11 @@ end;
 destructor TSocketStream.Destroy;
 begin
   if FSocketInitialized then
-  {$ifdef netware}
+  {$if  defined(netware) or defined(mswindows)}
   CloseSocket(Handle);
   {$else}
   FileClose(Handle);
-  {$endif}
+  {$ifend}
   inherited Destroy;
 end;