Sockets Problem: Programm hängt sich auf???

[Binärbaum]

Ich meinte eigentlich, dass RecieveText im Prinzip keinen Wert liefern kann, weil der Client nichts macht, womit er den Text sendet. Also bleibt das Programm vielleicht schon an der Stelle stehen.
Und die repeat-Schleife würde ich durch eine entsprechende abweisende Schleife ersetzen, da es theoretisch denkbar wäre, dass der Client schon beim ersten Durchlauf nicht mehr verbunden ist.

Delphi-Quellcode:

...
while Client.Connected do
begin
   ...
   ...
end;
...