destroy sollte auch beenden

2 files changed, 2 insertions, 0 deletions

diff --git a/fhunit.pas b/fhunit.pas
index a0cbd9a..7aba5dc 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -404,6 +404,7 @@ end;
 
 destructor tMessPunkteUpdateThread.destroy;
 begin
+  beenden:=true;
   while not beendet do
     sleep(100);
   setlength(antwort,0);
diff --git a/pegelunit.pas b/pegelunit.pas
index 1432b9e..8180666 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -349,6 +349,7 @@ end;
 
 destructor tPegelUpdateThread.destroy;
 begin
+  beenden:=true;
   while not beendet do
     sleep(100);
   setlength(antwort,0);