anchor.diff:          LogPrint('ID(15): '+ IDstr15H +STR_ID_UNKNOWN);
         end;
   
  -      XMLfile.Free;
  -    end;
  -
     finally
       UnlockControl();
     end;
  
positive.code:   MainForm.ButtonSaveHex.Enabled := False;
  
    MainForm.GroupChipSettings.Enabled := false;
  end;
  
  procedure UnlockControl;
  begin
    MainForm.GroupChipSettings.Enabled := true;
    MainForm.ButtonRead.Enabled := True;
    MainForm.ButtonWrite.Enabled := True;
  
negative.code:       if ChipSearchForm.ListBoxChips.Items.Capacity = 0 then FindChip.FindChip(XMLfile, '', IDstr90H);
        if ChipSearchForm.ListBoxChips.Items.Capacity = 0 then FindChip.FindChip(XMLfile, '', IDstrABH);
        if ChipSearchForm.ListBoxChips.Items.Capacity = 0 then FindChip.FindChip(XMLfile, '', IDstr15H);
  
        XMLfile.Free;
      end;
  
        if ChipSearchForm.ListBoxChips.Items.Capacity > 0 then
        begin
  