INDY TCP-Server disconnected ..

[NixChecker]

Hallo DPler
schönes Forum , das ihr da habt :hello:

ich , als Anfänger , bin grad dabei ein einfaches ChatProgramm zu schreiben ..
heute , als ich es schon zum 3. mal neugeschrieben habe , ist mir was aufgefallen ..

Client :

Code:

..
procedure TForm1.Button1Click(Sender: TObject);
begin
TCPClient.Connect(60);
end;

procedure TForm1.TCPClientConnected(Sender: TObject);
begin
memo1.Lines.Add('Connected');
end;

procedure TForm1.TCPClientDisconnected(Sender: TObject);
begin
memo1.Lines.Add('Disconnected');
end;
end.

Server :

Code:

...
procedure TForm1.TCPServerConnect(AThread: TIdPeerThread);
begin
memo1.Lines.Add('connected');
end;

procedure TForm1.TCPServerDisconnect(AThread: TIdPeerThread);
begin
memo1.Lines.Add('disconnected');
end;
end.

diese Zeilen sind das einzige , was ich gescriptet habe und der INDY TCPClient bzw Server kommt insgesammt nur einmal vor (Client hat Client;Server hat Server) , sonst NICHTS...

was mir aufgefallen ist:
wenn ich mit dem Client zum Server connecte , meien beide , dass der Client connected ist , der Server meint noch in der selben Sekunde (oder weniger) , dass der Client disconected ist .. ABER der Client meint , dass die Verbindung noch BESTEHT ..

an meinen Scripts kann es ja irgendwie nicht liegen , da sich der TimeOut beim Client (TCPClient.Connect(60)) ja nur auf das Connecten bezieht und außerdem er selber meint , dass die Verbindung noch da ist ..

*Hilfe brauch*
CU

[Capa]

alte frage gleiches Problem auch bei mir disconnectet der immer wieder nach dem connect.