--- oup/current/Tools/BinEdit.pas	2007/05/26 19:28:08	198
+++ oup/current/Tools/BinEdit.pas	2007/05/27 20:03:41	204
@@ -187,7 +187,6 @@ function TForm_BinEdit.GetValue(datatype
 var
   Data: TByteData;
   i:    Integer;
-  tempi: Integer;
   floatformat: TFormatSettings;
 begin
   floatformat.DecimalSeparator := '.';