ServerSocket öffnet kein Port

Stratege993

Ich habe mir ein kleines Programm geschrieben, wo eigentlich mit dem Befehl ServerSocket der PC zum Server werden soll. Wenn ich dann allerdings in cmd gehe und "netstat -a" eingebe wird der Port nicht angezeigt. Was mache ich falsch?

void __fastcall TForm1::VerbindenClick(TObject *Sender)
{
 Verbinden->Enabled = false;   //der Knopf wird inaktiv
 Memo1->Lines->Add("Sie sind als Server bereitgestellt");   //Nachricht wird angezeigt
 ServerSocket1->Open();    // es soll verbunden werden
}

Der Prot ist schon angegeben.

Stratege993

OK, ich habe das Problem selber gefunden, aus anderen Themen.
stratege993