1 files changed, 13 insertions, 3 deletions
diff --git a/epostunit.pas b/epostunit.pas
index 2a0af60..17a3d21 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -459,7 +459,9 @@ type
     we:      tWerte;
     tMi,tMa: longint;
     skal:    string;
+    kvs:     tKnownValues;
     constructor create(werte: tWerte; tMin,tMax: longint; skalierung: string);
+    destructor destroy; override;
     procedure stExecute; override;
   end;
 
@@ -8349,20 +8351,28 @@ begin
   tMi:=tMin;
   tMa:=tMax;
   skal:=skalierung;
+  kvs:=tKnownValues.create(we.knownValues);
   suspended:=false;
   gibAus('SkalierungsThread erzeugt: '+intToStr(tMi)+'-'+intToStr(tMa)+' '''+skal+'''',1);
 end;
 
+destructor tSkalierungsThread.destroy;
+begin
+  kvs.clear;
+  kvs.free;
+  inherited destroy;
+end;
+
 procedure tSkalierungsThread.stExecute;
 begin
   gibAus('SkalierungsThread gestartet',1);
   case we.genauigkeit of
     gSingle:
-      we.sWerte.skaliere(tMi,tMa,skal,we.transformationen,we.knownValues,@we.callBackGetValue);
+      we.sWerte.skaliere(tMi,tMa,skal,we.transformationen,kvs,@we.callBackGetValue);
     gDouble:
-      we.dWerte.skaliere(tMi,tMa,skal,we.transformationen,we.knownValues,@we.callBackGetValue);
+      we.dWerte.skaliere(tMi,tMa,skal,we.transformationen,kvs,@we.callBackGetValue);
     gExtended:
-      we.eWerte.skaliere(tMi,tMa,skal,we.transformationen,we.knownValues,@we.callBackGetValue);
+      we.eWerte.skaliere(tMi,tMa,skal,we.transformationen,kvs,@we.callBackGetValue);
   end{of case};
   gibAus('SkalierungsThread beendet',1);
 end;