오늘 소스를 찾았네요...

TServerSocket과 RichEdit 하나를 폼에 놓은 후에...ClientConnect 이벤트에 다음과 같이 작성하시면 됩니다...


void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
                RichEdit1->Lines->Add("접속한 IP : "+ServerSocket1->Socket->Connections[0]->RemoteAddress);
                RichEdit1->Lines->Add("접속한 포트 : "+IntToStr(ServerSocket1->Socket->Connections[0]->RemotePort));
                RichEdit1->Lines->Add("접속한 호스트 이름 : "+ServerSocket1->Socket->Connections[0]->RemoteHost);
                RichEdit1->Lines->Add("접속 시간 : "+ DateTimeToStr(Now()));
                RichEdit1->Lines->Add("-------------------------------------------------------");

}

그럼~~