anchor.diff:      while UsbAsp45_Busy() do
       begin
         Application.ProcessMessages;
  -      if MainForm.ButtonCancel.Tag <> 0 then
  -      begin
  -        LogPrint(STR_USER_CANCEL);
  -        Exit;
  -      end;
  +      if UserCancel then Exit;
       end;
   
       if MainForm.MenuAutoCheck.Checked then
  
positive.code: 
      MainForm.ProgressBar.Position := MainForm.ProgressBar.Position + 1;
      Application.ProcessMessages;
    end;
  
    if BytesWrite <> WriteSize then
  
negative.code:     MainForm.ProgressBar.Position := MainForm.ProgressBar.Position + 1;
      Application.ProcessMessages;
  
      if UserCancel then Break;
    end;
  
    if DataSize > FLASH_SIZE_128MBIT then UsbAsp25_EX4B();
  