제가 버그버그님의 글을 잘못 봤었나보네요.
제가 썼던 코드는 ClientSocket1->Socket->Disconnect(ClientSocket1->Socket->SocketHandle) 이고,
버그버그님이 쓰신 코드는 ClientSocket1->Socket->Close() 이죠.
님의 코드를 ClientSocket1->Close()로 잘못 봤던 듯.

VCL의 소스 ScktComp를 보면 두 코드는 완전히 동일한 코드입니다.
TCustomWinSocket::Close()가 TCustomWinSocket.Disconnect(TCustomWinSocket.SocketHandle)을 호출하도록
되어있지요. 저는 ScktComp 소스코드에서 연결이 실패한 부분으로부터 역으로 분석해서 올라오다보니
Disconnect 함수 호출이 빠진 걸 발견해서 Disconnect() 호출을 한 거였구요.

그럼...


버그 버그 님이 쓰신 글 :
: 소스 올리니깐 확인 하세요..^^
:
: 참고로 BC6, Windows2000Server에서 테스트 하였습니다.
:
: Active = true를 Open() 으로 바꾸셔도 같은 결과 입니다.