nachrichten seltener aus lokaler Warteschlange löschen

1 files changed, 3 insertions, 4 deletions

diff --git a/popunit.pas b/popunit.pas
index 9bdfd62..97ed878 100644
--- a/popunit.pas
+++ b/popunit.pas
@@ -377,6 +377,9 @@ var
   i,j,len,id,groesze: longint;
 begin
   pr:=nil;
+  for i:=0 to length(_nachrichten)-1 do
+    _nachrichten[i].free;
+  setlength(_nachrichten,0);
   while not beenden do begin
     auszenWeltKontakt(pr);
     if (_user<>'') and (_host<>'') and (_pass<>'') and (_port<>0) then begin
@@ -391,10 +394,6 @@ begin
           break;
       end;
 
-      for i:=0 to length(_nachrichten)-1 do
-        _nachrichten[i].free;
-      setlength(_nachrichten,0);
-
       pr:=tProcess.create(nil);
       if _sshUser<>'' then begin
         pr.executable:='ssh';