Bug aus Dichtenermittlung entfernt

1 files changed, 2 insertions, 2 deletions

diff --git a/epost.lpr b/epost.lpr
index b6fcd3f..926e411 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -345,7 +345,7 @@ begin
      end;
      if startetMit('maximale und minimale Dichten bestimmen ',s) then begin
        b:=startetMit('(symmetrisch) ',s);
-       findeWerte(s,nil,@wertes,@Konturen,false);
+       i:=findeWerte(s,nil,@wertes,@Konturen,false);
        if i<0 then begin
          aufraeumen;
          halt(1);
@@ -355,7 +355,7 @@ begin
      end;
      if startetMit('maximale und minimale Dichten angleichen ',s) then begin
        b:=startetMit('(symmetrisch) ',s);
-       findeWerte(s,nil,@wertes,@Konturen,false);
+       i:=findeWerte(s,nil,@wertes,@Konturen,false);
        if i<0 then begin
          aufraeumen;
          halt(1);