diff options
| -rw-r--r-- | popunit.pas | 7 |
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'; |