下面是 Delphi6 VCL 标准类库 Sockets 单元中 TBaseSocket 类的一段代码：
procedure TBaseSocket.Close;
begin
  if FActive then
  begin



{$IFDEF LINUX}
    ErrorCheck(Libc.__close(FSocket));

    FSocket := INVALID_SOCKET;
    FActive := False;
    DoDestroyHandle;
  end;
end;

难道 Borland 的开发人员忘了在 {$IFDEF MSWINDOWS} 时也需要关闭句柄？这个 BUG 的后果就是句柄泄漏最终造成系统的网络完全瘫痪！
此 BUG 在 Delphi2005 已经修改了，不知道 Delphi7 和 Delphi8 中有没有被修改！

下面是 Delphi2005 的代码：
procedure TBaseSocket.Close;
begin
  if FActive then
  begin
{$IFDEF MSWINDOWS}
    ErrorCheck(closesocket(FSocket));

{$IFDEF LINUX}
    ErrorCheck(Libc.__close(FSocket));

    FSocket := INVALID_SOCKET;
    FActive := False;
    DoDestroyHandle;
  end;
end;