TClientSocket: auf Verbindung warten???

[romber]

Hallo!

Ich habe einen Timer, der ständig versucht die Verbindung mit dem Server herzustellen. Dazu noch ein Paar Zeilen, die den Status des Sockets signalisieren.

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not ClientSocket.Socket.connected then
try ClientSocket.Open 
finally 
TryLogin  //TryLogin ist eine Funktion, also unwichtig
end;
end;
...

procedure TForm1.ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
StatusBar1.Panels.Items[0].Text := 'Verbunden';
end;

procedure TForm1.ClientSocketDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
StatusBar1.Panels.Items[0].Text := 'Nicht verbunden';
end;

Manchmal zeigt in des StatusBar "verbunen", obwohl der ServerSocket keine active Connections meldet und die Daten den Socket nicht erreichen. Was ist das? Warum passiert das? Wie halte ich die Verbindung permanent aktiv, auch wenn keine Daten fließen? Ich brauche eine sehr sichere Verbindung zum Server!

Danke!