--- oup/current/Tools/BinEdit.pas	2007/05/12 13:22:11	177
+++ oup/current/Tools/BinEdit.pas	2007/05/27 20:03:41	204
@@ -21,6 +21,9 @@ type
     value_viewer_context_copyasstring: TMenuItem;
     value_viewer_context_copyashex: TMenuItem;
     VTHPopup: TVTHeaderPopupMenu;
+    panel_imexport: TPanel;
+    btn_export: TButton;
+    btn_import: TButton;
     procedure FormCreate(Sender: TObject);
     procedure NewFile(fileinfo: TFileInfo);
 
@@ -184,7 +187,6 @@ function TForm_BinEdit.GetValue(datatype
 var
   Data: TByteData;
   i:    Integer;
-  tempi: Integer;
   floatformat: TFormatSettings;
 begin
   floatformat.DecimalSeparator := '.';
@@ -222,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
@@ -231,6 +234,9 @@ begin
               Result := 'unused';
             Break;
           end;
+        if i > High(rawlist) then
+          Result := 'unused';
+      end;
     end;
     12:
       if hex.Data[offset] = 1 then