Socket Ausgangsthread, sinvoll? (Ping / Pong)

[Jackie1983]

habe gerade die warte zeit geändert

Delphi-Quellcode:

  StartTime := now + 3.2*(3.2/86400.0);
  //Ping gesendet warte auf Pong
  while (not fIsPongOk) and (StartTime > now) do

dann funktioniert es, aber ist das so auch die beste lösung?
//Edit doch nicht scheint noch zu hängen .....