anchor.diff:    MainForm.ButtonSaveHex.Enabled := False;
   
     MainForm.GroupChipSettings.Enabled := false;
  +  MainForm.KHexEditor.Enabled := false;
   end;
   
   procedure UnlockControl;
   begin
  +  MainForm.KHexEditor.Enabled := true;
     MainForm.GroupChipSettings.Enabled := true;
     MainForm.ButtonRead.Enabled := True;
     MainForm.ButtonWrite.Enabled := True;
  
positive.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);
  
        if ChipSearchForm.ListBoxChips.Items.Capacity > 0 then
        begin
  
negative.code:         LogPrint('ID(15): '+ IDstr15H +STR_ID_UNKNOWN);
        end;
  
    finally
      UnlockControl();
    end;
  