anchor.diff:      while UsbAsp25_Busy() do
       begin
         Application.ProcessMessages;
  -      if MainForm.ButtonCancel.Tag <> 0 then
  -      begin
  -        LogPrint(STR_USER_CANCEL);
  -        Exit;
  -      end;
  +      if UserCancel then Exit;
       end;
   
       UsbAsp25_ReadSR(sreg); //Читаем регистр
  
positive.code:     Inc(Address, PageSize);
  
      while UsbAspI2C_BUSY(DevAddr) do
        Application.ProcessMessages;
  
      MainForm.ProgressBar.Position := MainForm.ProgressBar.Position + 1;
      Application.ProcessMessages;
  
negative.code:     Inc(Address, ChunkSize div 2);
  
      while UsbAspMW_Busy do
      begin
         Application.ProcessMessages;
         if UserCancel then Exit;
      end; 
  
      MainForm.ProgressBar.Position := MainForm.ProgressBar.Position + ChunkSize;
      Application.ProcessMessages;
  