Not storing TUpDownEdit.Value, if it matches MinValue

Source commit: b5c6e748fd6823a3b0a27adb174c2fa29397f082

source/forms/Login.dfm

@@ -215,7 +215,6 @@ object LoginDialog: TLoginDialog
           Alignment = taRightJustify
           MaxValue = 65535.000000000000000000
           MinValue = 1.000000000000000000
-          Value = 1.000000000000000000
           Anchors = [akTop, akRight]
           TabOrder = 6
           OnChange = PortNumberEditChange

source/forms/Preferences.dfm

@@ -1530,7 +1530,6 @@ object PreferencesDialog: TPreferencesDialog
             Alignment = taRightJustify
             MaxValue = 9.000000000000000000
             MinValue = 1.000000000000000000
-            Value = 1.000000000000000000
             Anchors = [akTop, akRight]
             MaxLength = 1
             TabOrder = 0
@@ -2207,7 +2206,6 @@ object PreferencesDialog: TPreferencesDialog
             Alignment = taRightJustify
             MaxValue = 65535.000000000000000000
             MinValue = 1.000000000000000000
-            Value = 1.000000000000000000
             Anchors = [akTop, akRight]
             TabOrder = 4
           end
@@ -3081,7 +3079,6 @@ object PreferencesDialog: TPreferencesDialog
             Alignment = taRightJustify
             MaxValue = 99.000000000000000000
             MinValue = 1.000000000000000000
-            Value = 1.000000000000000000
             Anchors = [akLeft, akTop, akRight]
             MaxLength = 2
             TabOrder = 1

source/forms/SiteAdvanced.dfm

@@ -971,7 +971,6 @@ object SiteAdvancedDialog: TSiteAdvancedDialog
             Alignment = taRightJustify
             MaxValue = 3600.000000000000000000
             MinValue = 1.000000000000000000
-            Value = 1.000000000000000000
             MaxLength = 4
             TabOrder = 3
             OnChange = DataChange
@@ -1045,7 +1044,6 @@ object SiteAdvancedDialog: TSiteAdvancedDialog
             Increment = 5.000000000000000000
             MaxValue = 6000.000000000000000000
             MinValue = 5.000000000000000000
-            Value = 5.000000000000000000
             Anchors = [akTop, akRight]
             MaxLength = 4
             TabOrder = 0
@@ -1079,7 +1077,6 @@ object SiteAdvancedDialog: TSiteAdvancedDialog
             Alignment = taRightJustify
             MaxValue = 3600.000000000000000000
             MinValue = 1.000000000000000000
-            Value = 1.000000000000000000
             Anchors = [akTop, akRight]
             MaxLength = 4
             TabOrder = 3
@@ -1271,7 +1268,6 @@ object SiteAdvancedDialog: TSiteAdvancedDialog
             Alignment = taRightJustify
             MaxValue = 65535.000000000000000000
             MinValue = 1.000000000000000000
-            Value = 1.000000000000000000
             Anchors = [akTop, akRight]
             TabOrder = 4
             OnChange = DataChange
@@ -1564,7 +1560,6 @@ object SiteAdvancedDialog: TSiteAdvancedDialog
             Alignment = taRightJustify
             MaxValue = 65535.000000000000000000
             MinValue = 1.000000000000000000
-            Value = 1.000000000000000000
             Anchors = [akTop, akRight]
             TabOrder = 1
             OnChange = DataChange

source/packages/my/UpDownEdit.pas

@@ -629,7 +629,7 @@ end;
 
 function TUpDownEdit.IsValueStored: Boolean;
 begin
-  Result := (GetValue <> 0.0);
+  Result := (GetValue <> MinValue);
 end;
 
 procedure TUpDownEdit.SetDecimal(NewValue: Byte);