diff --git a/Src/Data/Myc.Data.Decimal.pas b/Src/Data/Myc.Data.Decimal.pas
index 9faa884..151cbe1 100644
--- a/Src/Data/Myc.Data.Decimal.pas
+++ b/Src/Data/Myc.Data.Decimal.pas
@@ -254,9 +254,7 @@ end;
 
 class operator TDecimal.Explicit(const A: TDecimal): Double;
 begin
-    var scale := A.GetScale;
-    var value := A.GetValue;
-    Result := value / PowersOf10[scale];
+    Result := A.GetValue / PowersOf10[A.GetScale];
 end;
 
 class function TDecimal.MaxValue(AScale: TScale): TDecimal;