gemeinsamer Vorfahr von tKontur und tWerte

1 files changed, 2 insertions, 2 deletions

diff --git a/epost.lpr b/epost.lpr
index 987ed21..98cd281 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -443,7 +443,7 @@ begin
       end;
       if startetMit('lösche Kontur ',s) then begin
         while s<>'' do begin
-          j:=findeKontur(erstesArgument(s),nil,@Konturen,false);
+          j:=findeKontur(erstesArgument(s),nil,@Wertes,@Konturen,false);
           if j<0 then begin
             aufraeumen;
             halt(1);
@@ -461,7 +461,7 @@ begin
         halt(1);
       end;
       if startetMit('Kontur',s) then begin
-        i:=findeKontur(s,inf,@Konturen,true);
+        i:=findeKontur(s,inf,@Wertes,@Konturen,true);
         if (i>=0) and Konturen[i].Init(syntaxtest,inf,@wertes,maxthreads) then continue;
         aufraeumen;
         halt(1);