epostunit.pas: tWerte.destroy() nun robuster

1 files changed, 4 insertions, 3 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 71487b0..f313a7c 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -797,15 +797,16 @@ end;
 destructor tWerte.destroy;
 begin
   warteAufBeendigungDesLeseThreads;
-  if eWerte.params<>sWerte.params then begin
+  if assigned(eWerte) and (not assigned(sWerte) or (eWerte.params<>sWerte.params)) then begin
     eWerte.params.free;
     gibAus('Die Werteparameter sind verschieden instaziiert!!!',3);
   end;
-  if dWerte.params<>sWerte.params then begin
+  if assigned(dWerte) and (not assigned(sWerte) or (dWerte.params<>sWerte.params)) then begin
     dWerte.params.free;
     gibAus('Die Werteparameter sind verschieden instaziiert!!!',3);
   end;
-  sWerte.params.free;
+  if assigned(sWerte) then
+    sWerte.params.free;
   eWerte.free;
   dWerte.free;
   sWerte.free;