찾아보니 IdIcmpClient1 라는 컴포넌트를 쓰라고 나오던데요~

찾아서 컴파일까지 했는데

void __fastcall TFormMtx::Button1Click(TObject *Sender)
{
          Edit2->Text = " 꺼짐 ";
IdIcmpClient1->Host = "127.0.0.1";
IdIcmpClient1->ReceiveTimeout = 3000;
IdIcmpClient1->Ping();
}

void __fastcall TFormMtx::IdIcmpClient1Reply(TComponent *ASender,
      const TReplyStatus &AReplyStatus)
{
          Edit2->Text = " 켜짐 ";

}
버튼을 누르기만 하면 Cannaot allocate socket 이라는 에러가 뜨네요~

도와주세요~