anchor.diff:  
   procedure EraseFlashI2C(StartAddress, WriteSize: cardinal; PageSize: word; DevAddr: byte);
   var
  -  DataChunk: byte;
  +  DataChunk: array[0..2047] of byte;
     Address, BytesWrite: cardinal;
   begin
     if (StartAddress >= WriteSize) or (WriteSize = 0) then
  
positive.code:   PageSize: word;
    WriteType: byte;
    I2C_DevAddr: byte;
    I2C_ChunkSize: Word;
  begin
  try
    ButtonCancel.Tag := 0;
  
negative.code: procedure TMainForm.ButtonVerifyClick(Sender: TObject);
  var
    I2C_DevAddr: byte;
    I2C_ChunkSize: Word = 65535;
  begin
  try
    ButtonCancel.Tag := 0;
  