Indy의 TCPServer 컴포넌트를 이용해 보세요.
아래는 해당 포트가 열려져 있으면 "포트 이용중!" 이라고 표시하는 예제입니다.


IdTCPServer1->DefaultPort = 80; // PORT;

try {
   IdTCPServer1->Bindings->Clear();
   IdTCPServer1->Active = true;
  } catch(...) {
   ShowMessage("포트 이용중!");
}

IdTCPServer1->Active = false;


박재현 님이 쓰신 글 :
:
: 제컴에서 돌고있는 IIS도 80번 포트를 사용하고 있는데
:
: IdTCPServer콤포넌트의 Default Port를 80번으로 하고 실행했을경우
:
: 아무런 에러없이 80번 포트에서 Listen하구 있더라구여.(netstat -a 해서 확인)
:
: 프로그램실행시 80번 포트가 이미 사용중인지 체크하는 함수는 없나요?
:
: