Mit der Meldung: Es wurde keine Ausführungsbehandlung gefunden

TIdTCPServer *Server;
        TIdTCPClient *Client;

void __fastcall TForm1::HinzuClick(TObject *Sender)
{
  AnsiString ip = InputBox("Rechner Hinzufügen","Bitte IP eingeben", "127.0.0.1");
  Client->Host = ip;
  Client->Connect();

  try
     {
          log->Ausgeben(Client->ReadLn());
     }
     __finally
     {
          Client->Disconnect();
     }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ServerConnect(TIdPeerThread *AThread)
{
  AThread->Connection->WriteLn("Hello from Basic Indy Server server.");
  AThread->Connection->Disconnect();
  //StatusBar->Panels->Items[1]->Text = "Verbunden: " + Server->Bindings->Count;
}
//---------------------------------------------------------------------------

lg