beendeExterneBefehleWennFertig neu

1 files changed, 3 insertions, 0 deletions

diff --git a/epost.lpr b/epost.lpr
index 820cd96..b6fcd3f 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -69,6 +69,9 @@ begin
      gibAus('Syntaxtest bestanden!',3);
    inf.rewind;
    while inf.metaReadln(s,false) do begin
+     for i:=0 to length(wertes)-1 do
+       wertes[i].beendeLeseThreadWennFertig;
+     beendeExterneBefehleWennFertig;
      if s='streng warnen' then begin
        Warnstufe:=wsStreng;
        continue;