Index: oup/current/Tools/BinEdit.pas
===================================================================
--- oup/current/Tools/BinEdit.pas	(revision 74)
+++ oup/current/Tools/BinEdit.pas	(revision 75)
@@ -191,5 +191,7 @@
   Data: Tdata;
   i:    Word;
-begin
+  floatformat: TFormatSettings;
+begin
+  floatformat.DecimalSeparator := '.';
   case datatype of
     1:
@@ -219,5 +221,5 @@
       Data[2] := hex.Data[offset + 2];
       Data[3] := hex.Data[offset + 3];
-      Result  := FloatToStr(Decode_Float(Data));
+      Result  := FloatToStr(Decode_Float(Data), floatformat);
     end;
     10:
@@ -383,5 +385,7 @@
   str:   String;
   Value: LongWord;
-begin
+  floatformat: TFormatSettings;
+begin
+  floatformat.DecimalSeparator := '.';
   for i := 1 to value_viewer.RowCount - 1 do
   begin
@@ -448,5 +452,5 @@
         for j := 0 to 3 do
           Data[j] := hex.Data[hex.SelStart + j];
-        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data));
+        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat);
       end
       else
@@ -561,6 +565,6 @@
 
 procedure TForm_BinEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-var
-  temps: String;
+//var
+//  temps: String;
 begin
   if (Shift = [ssCtrl]) and (Key = Ord('C')) then
@@ -741,5 +745,4 @@
   node: PVirtualNode;
   nodedata: PNodeData;
-  id: Integer;
   form: TForm_ToolTemplate;
 begin
Index: oup/current/Tools/RawEdit.dfm
===================================================================
--- oup/current/Tools/RawEdit.dfm	(revision 74)
+++ oup/current/Tools/RawEdit.dfm	(revision 75)
@@ -143,4 +143,5 @@
       FixedCols = 0
       RowCount = 8
+      FixedRows = 0
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
Index: oup/current/Tools/RawEdit.pas
===================================================================
--- oup/current/Tools/RawEdit.pas	(revision 74)
+++ oup/current/Tools/RawEdit.pas	(revision 75)
@@ -154,7 +154,4 @@
 
 procedure TForm_RawEdit.list_offsetClick(Sender: TObject);
-var
-  i: LongWord;
-  raw_info: TRawInfo;
 begin
   ClearValues;
@@ -185,5 +182,7 @@
   Data: Tdata;
   i:    Word;
-begin
+  floatformat: TFormatSettings;
+begin
+  floatformat.DecimalSeparator := '.';
   case datatype of
     1:
@@ -213,5 +212,5 @@
       Data[2] := hex.Data[offset + 2];
       Data[3] := hex.Data[offset + 3];
-      Result  := FloatToStr(Decode_Float(Data));
+      Result  := FloatToStr(Decode_Float(Data), floatformat);
     end;
     10:
@@ -256,5 +255,7 @@
   str:   String;
   Value: LongWord;
-begin
+  floatformat: TFormatSettings;
+begin
+  floatformat.DecimalSeparator := '.';
   for i := 1 to value_viewer.RowCount - 1 do
   begin
@@ -321,5 +322,5 @@
         for j := 0 to 3 do
           Data[j] := hex.Data[hex.SelStart + j];
-        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data));
+        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat);
       end
       else
@@ -479,6 +480,6 @@
 
 procedure TForm_RawEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-var
-  temps: String;
+//var
+//  temps: String;
 begin
   if (Shift = [ssCtrl]) and (Key = Ord('C')) then
@@ -507,7 +508,7 @@
 
 procedure TForm_RawEdit.hexSelectionChanged(Sender: TObject);
-var
-  selstart: Integer;
-  i, j:     Word;
+//var
+//  selstart: Integer;
+//  i, j:     Word;
 begin
 {    FOR i:=1 TO structs.RowCount-1 DO BEGIN
@@ -562,5 +563,5 @@
 procedure TForm_RawEdit.btn_importClick(Sender: TObject);
 var
-  Data: Tdata;
+//  Data: Tdata;
   fs:   TFileStream;
 begin
@@ -644,5 +645,5 @@
 procedure TForm_RawEdit.value_viewer_context_copyClick(Sender: TObject);
 var
-  i:     Byte;
+//  i:     Byte;
   Name:  String;
   Value: LongWord;