Ich kenn die Socket-Komponenten nicht ganz auswendig. Aber es könnte sein, dass sie mit Messages arbeiten. Deswegen würde ich mal eine Messageschleife vorschlagen. Ob das die Lösung ist kann ich so nicht sagen.
Messageschleife an sich sieht so aus
Delphi-Quellcode:
uses windows, messages
var msg:Tmsg;
...
while getmessage(msg,0,0,0) do
begin
translatemessage(msg); //nur nötig, wenn Tastendrücke ausgewertet werden müssen
dispatchmessage(msg);
end;
Die Schleife wird mittels postquitmessage beendet. aber du müsstest dir das wahrscheinlich anders anpassen (vielleicht auch peekmessage und/oder waitmessage benutzen)....