Connect, Send이상 없이 작동합니다.

ㅠㅠ 근데 왜 Recv이벤이 발생안하는거죠??

데이타 보내는건 확실합니다.

Test로 vb프로그램로 간단하게 만들어서 test해봤습니다..

정말 이유를 모르겠네요;;;

__fastcall TwfMainWindow::TwfMainWindow(TComponent* Owner)
    : TForm(Owner)
{
    tpClient->OnReceive = this->tpClientReceive;
}

이 부분이 이벤트 셋팅 부분


//---------------------------------------------------------------------------
void __fastcall TwfMainWindow::tpClientReceive(TObject *Sender, PChar Buf,
      int &DataLen)
{
    ShowMessage("dfsdfsdf");
}
//---------------------------------------------------------------------------

이 부분은 Recv부분

void __fastcall TwfLogin::btLoginClick(TObject *Sender)
{
    if((tfID->Text == "")||(tfPass->Text == "")){
        ShowMessage("서버에 접속하기 위한 개인아이디와 비밀번호를 입력해주세요");
        lState->Caption = "아이디, 패스워드 미 입력";
        bLogin = false;
        return;
    }
   
    if( wfMainWindow->tpClient->Connected == false){
        wfMainWindow->tpClient->RemoteHost = "127.0.0.1";
        wfMainWindow->tpClient->RemotePort = "23";
        wfMainWindow->tpClient->Connect();

    }else if( wfMainWindow->tpClient->Connected == true){
        String str;
        str.sprintf("%s:%s,%s\n","Login",tfID->Text,tfPass->Text);
       
        wfMainWindow->tpClient->SendBuf(str.c_str(), str.Length(),0);
        lState->Caption = "Server Connect...";
                        bLogin = true;
    }else{
        lState->Caption = "Server에 접속하지 못했습니다.";
        bLogin = false;
    }

    //wfMainWindow->Show();
}

이 부분은 연결하는 부분입니다;;

부탁드릴께요..