34.    if(!IdSocketClient->Connected())  
35.      return;
요 부분은 사족이신 것 같고...

ReadLn 은 default로 개행 코드가 올때까지 대기 됩니다. LF 지요(Line Feed : 0x0A)
CR+LF 조합 등으로 개행코드를 약속할 수도 있기도 하구요.
따라서 장치에서 개행코드를 날려주지 않으면, 영영 대기상태에 놓이게 됩니다.
확인해 보시지요..

Kenzuro 님이 쓰신 글 :
: 안녕하세요 Builder 초보 Kenzuro 입니다.
:
: 장비에서 값을 받아오는데.. 시간값을 명령어로 보내면 장비에서 데이터를 보내 주고 있습니다.
:
: 기본 소켓으로는 잘 되고 있었는데요. 그것을 인디로 바꾸 싶어서 공부를 하고 있습니다.
:
: 데이터는 D,M1,N001,40,30,40,0,N002.... 이런식으로 들어오는데 N060까지 들어옵니다.
:
: 채팅 데모 버전을 약간 수정해서 만들어봤는데요. 장비에 명령어를 보내도 감감 무소식입니다..
:
: 값을 받는 방법이 틀린건가요?? 도움 좀 주세요~
:
: 제가 만든 소스 첨부하겠습니다.
:
:

__fastcall TForm1::TForm1(TComponent* Owner)
:         : TForm(Owner)
: {
: 
:   IdSocketClient->Host = "192.168.0.50";
:   IdSocketClient->Port = 5001;
:   IdSocketClient->Connect();
:   Sleep(1000);
: 
:   if(IdSocketClient->Connected() == true){
:     ReceiveMemo->Lines->Add("Socket Connect Success\n================================\n");
:   }else{
:     ReceiveMemo->Lines->Add("Socket Connect fail\n================================\n");
:   }
: }
: //---------------------------------------------------------------------------
: 
: void __fastcall TForm1::SendMessageClick(TObject *Sender)
: {
:   if(SendEdit->Text != ""){
:     IdSocketClient->WriteLn(SendEdit->Text);
:     Sleep(100);
:     ReceiveMemo->Lines->Add("Send : " + SendEdit->Text+ "\n================================\n");
:     SendEdit->Text = "";
:   }
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::ReceiveTimerTimer(TObject *Sender)
: {
:   if(IdSocketClient->Connected()){
:     static int errorcnt = 0;
:     AnsiString Msg;
: 
:     if(!IdSocketClient->Connected())
:       return;
: 
:     try{
:      Msg = IdSocketClient->ReadLn("", 5);
:      //IdSocketClient->ReadBuffer(Msg, 1024)
:     }catch(...){
:       errorcnt++;
:       if(errorcnt > 4){
:         ReceiveTimer->Enabled = false;
:         ReceiveMemo->Lines->Add("IdSocketClient Error\n================================\n");
:       }
:     }
: 
:     if(Msg != ""){
:       ReceiveMemo->Lines->Add("Recv : " + Msg +"\n================================\n");
:       Msg = "";
:     }
:   }else{
:     ReceiveTimer->Enabled = false;
:     ReceiveMemo->Lines->Add("IdSocketClient DisConnect\n================================\n");
:   }
: }