--- oup/current/Tools/BinEdit.pas	2007/05/13 22:18:18	179
+++ 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 := '.';
@@ -225,6 +224,7 @@ begin
     11:
     begin
       if Length(rawlist) > 0 then
+      begin
         for i := 0 to High(rawlist) do
           if rawlist[i].SrcOffset = offset then
           begin
@@ -234,6 +234,9 @@ begin
               Result := 'unused';
             Break;
           end;
+        if i > High(rawlist) then
+          Result := 'unused';
+      end;
     end;
     12:
       if hex.Data[offset] = 1 then