summaryrefslogtreecommitdiff
path: root/popunit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'popunit.pas')
-rw-r--r--popunit.pas7
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';