1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure btnConnectClick(Sender: TObject);
var
  LString, RString : String;
begin
  with IdTCPClient do
  begin
    Host := edtHost.Text;
    Port := StrToint(edtPort.Text);
    try
      Connect;

      RString := IdTCPClient.ReadLn; // blockiert die Anwendung bis der Server etwas sendet
      lbCommunication.Items.Insert(0,'Server said -> ' + RString);

    except
    on E : Exception do
      begin
        ShowMessage(E.Message);
      end;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TfrTCPIntercom.IdTCPClientConnected(Sender: TObject);
var
    LString : String;
begin
  Thread := TReadThread.Create(True);
  Thread.FreeOnTerminate := True;

  IdentifyToServer;
  Anzeigen('* Verbindung zum Server hergestellt');
end;


{------------------------------}
{}procedure TReadThread.Execute;
{------------------------------}
begin
  try
    While (not Terminated) and (frTCPIntercom.IdTCPClient.Connected) do
    Begin
      Nachricht := frTCPIntercom.IdTCPClient.ReadLn();
      Synchronize(EingangVerarbeiten);
    End;
  except
    on e: exception do
    begin
      if frTCPIntercom.IdTCPClient.Connected
      then frTCPIntercom.IdTCPClient.Disconnect;
      frTCPIntercom.Anzeigen('* Der Read Thread hatte irgendein Problem '+e.Message);
    end;
  end;
end;