Programm quittiert den Dienst bei nem sleep?

[Angel4585]

Hallo,

an einer etwas ungewöhnlichen Stelle hört mein Programm einfach auf zu arbeiten:

Delphi-Quellcode:

try
    for i := 0 to 19 do
      begin
      snlogger.Log('a'+IntToStr(i));
      Application.ProcessMessages;
      snlogger.Log('b'+IntToStr(i));
      sleep(500);//Ab hier passiert nichtsmehr
      snlogger.Log('c'+IntToStr(i));
      Application.ProcessMessages;
      snlogger.Log('d'+IntToStr(i));
      SNTCPClient1.Write(C_PING);    
      snlogger.Log('e'+IntToStr(i));
      end;
finally
snlogger.log('finally');
end;

Er steigt da nicht immer aus, nur ab und zu, manchmal läuft das da auch durch.
Das finally wird nicht ausgeführt, es passiert einfach garnichtsmehr.
Das Programm kommuniziert mit einem Dienst. Der Dienst meldet nichts, bis auf das die Verbindung weg ist. Wenn ich mitm TCP Viewer schaue sind die tatsächlich weg. Es kommt keine Fehlermeldung und garnichts...
Das seltsame ist, das Programm beendet sich nicht, sondern ist nachwievor als Task aktiv.

Hat jemand en Tipp wie ich mich dem Problem nähern könnte?