Problem mit Exceptionbehandlung

[Hobbycoder]

Ich hab's jetzt mal so versucht. Jetzt übergebe ich vor dem Connect das Item in einen String und lösche es aus der Liste. Trotzdem schein meine List zu wachsen.

Delphi-Quellcode:

    while not self.Terminated do
    begin
      if FMsgQueue.Count>0 then
      begin
        FTCPClient.Host:='127.0.0.1';
        FTCPClient.Port:=Self.FDestinationPort;
        MsgStr:=FMsgQueue[0];
        FMsgQueue.Delete(0);
        try
          FTCPClient.Connect;
          try
            if FTCPClient.Connected then
            begin
              FTCPClient.Socket.WriteLn(FMsgQueue[0]);
              DoError('No Error (QueueMsgCount: '+IntToStr(FMsgQueue.Count)+')');
            end;
          finally
            FTCPClient.Disconnect;
            //FMsgQueue.Delete(0);
          end;
        except
          on E: Exception do
          begin
            //if FMsgQueue.Count>0 then FMsgQueue.Delete(0);
            DoError(E.Message+' (QueueMsgCount: '+IntToStr(FMsgQueue.Count)+')');
          end;
        end;
      end;
      Sleep(50);
    end;

Code:

19:06:59,229: TCPClient: Socket-Fehler # 10061Verbindung abgelehnt. (QueueMsgCount: 6)
19:07:01,307: TCPClient: Socket-Fehler # 10061Verbindung abgelehnt. (QueueMsgCount: 8)
19:07:03,399: TCPClient: Socket-Fehler # 10061Verbindung abgelehnt. (QueueMsgCount: 10)
19:07:05,482: TCPClient: Socket-Fehler # 10061Verbindung abgelehnt. (QueueMsgCount: 15)