anchor.diff:  
       MainForm.ProgressBar.Position := MainForm.ProgressBar.Position + 1;
       Application.ProcessMessages;
  +    if UserCancel then Break;
     end;
   
     if BytesWrite <> WriteSize then
  
positive.code:     MainForm.ProgressBar.Position := MainForm.ProgressBar.Position + 1;
      Application.ProcessMessages;
  
      if MainForm.ButtonCancel.Tag <> 0 then
      begin
        LogPrint(STR_USER_CANCEL);
        Break;
      end;
    end;
  
    if BytesRead <> ChipSize then
  
negative.code:   timeval: integer;
    ms, sec, d: word;
  begin
    ButtonCancel.Tag := 0;
    if not OpenDevice() then exit;
    EnterProgMode25(SetSPISpeed(0));
    LockControl();
  