Index: oup/current/Helper/ValueEdit.pas
===================================================================
--- oup/current/Helper/ValueEdit.pas	(revision 173)
+++ oup/current/Helper/ValueEdit.pas	(revision 180)
@@ -67,5 +67,4 @@
   edit_new.EditType := etString;
   edit_new.Text := '';
-  edit_new.LimitCheck := False;
   edit_new.MaxLength := 0;
   edit_new.Max := 0;
@@ -111,4 +110,5 @@
     end;
   end;
+  edit_new.Text := current;
   edit_new.SetFocus;
   edit_new.SelectAll;
@@ -136,4 +136,5 @@
 procedure TForm_ValueEdit.FormCreate(Sender: TObject);
 begin
+  DecimalSeparator := '.';
   edit_new := TCrossEdit.Create(Self);
   with edit_new do
@@ -159,5 +160,5 @@
     NoFocusAlignment := taLeftJustify;
     Precision := 15;
-    Decimals := 4;
+    Decimals := 14;
     FocusWidthInc := 0;
     EditType := etHex;