diff --git a/X2UtSettings.pas b/X2UtSettings.pas
index d5304ca..6b9a77c 100644
--- a/X2UtSettings.pas
+++ b/X2UtSettings.pas
@@ -371,11 +371,10 @@ var
 
 begin
   pDefine := FFactory.GetDefine(FSection, AName);
+  vValue  := AValue;
+  
   if Assigned(pDefine) then
-  begin
-    vValue  := AValue;
     pDefine.Action(saWrite, FSection, AName, vValue);
-  end;
 
   InternalWriteBool(AName, vValue);
 end;
@@ -387,11 +386,10 @@ var
 
 begin
   pDefine := FFactory.GetDefine(FSection, AName);
+  vValue  := AValue;
+
   if Assigned(pDefine) then
-  begin
-    vValue  := AValue;
     pDefine.Action(saWrite, FSection, AName, vValue);
-  end;
 
   InternalWriteFloat(AName, vValue);
 end;
@@ -403,11 +401,10 @@ var
 
 begin
   pDefine := FFactory.GetDefine(FSection, AName);
+  vValue  := AValue;
+
   if Assigned(pDefine) then
-  begin
-    vValue  := AValue;
     pDefine.Action(saWrite, FSection, AName, vValue);
-  end;
 
   InternalWriteInteger(AName, vValue);
 end;
@@ -419,11 +416,10 @@ var
 
 begin
   pDefine := FFactory.GetDefine(FSection, AName);
+  vValue  := AValue;
+
   if Assigned(pDefine) then
-  begin
-    vValue  := AValue;
     pDefine.Action(saWrite, FSection, AName, vValue);
-  end;
 
   InternalWriteInteger(AName, vValue);
 end;