- procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
- var
- [..]
- begin
- with AThread.Connection do
- begin
- AThread.Synchronize(IncrConnectionCount); //versteh ich nicht
- [..] // es wird nen bissen was berechnet
- WriteLn([..]);
- Disconnect;
- AThread.Synchronize(DecrConnectionCount);
- end;
- end;