[BCB] sprawdzanie p2p

Witam, probuje napisac program ktory po wpisaniu do Edit1 numeru IP i wcisnieciu Button1 pokazuje nam w Edit2 (enabled=false;) czy istnieje polaczenie p2p (bezposrednie) z tym numerem IP.

Probowalem to zrobic w ten sposob:

[code]void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Edit1->Text.Length() > 0) // łaczy sie z IP z edit1
{
ClientSocket1->Host = Edit1->Text;
ClientSocket1->Active = true;
}
}[/code]

[code]void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{

Edit2->Text="Nie udało się połączyć!"; //mowi czy udalo sie polaczenie
ErrorCode = 0;
}[/code]

[code]void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
{
Edit2->Text="Połączenie udane!!"; //to samo
}[/code]

Jednakze cos musi byc nie tak, obojetnie jaki IP wpisze to i tak mowi "Nie udalo sie polaczyc!"... Powiedzcie mi co jest zle i co moge z tym zrobic?

Pozdrawiam!

przepraszam za nieczytelny post... przy rejestracji wyskoczyl mi blad wiec musze pisac jako gosc, nie moge sie zalogowac

A co z portami? Nie da się połączyć z IP - możesz co najwyżej podłączyć się do IP:nr_portu