anchor.diff:  procedure TMainForm.ButtonVerifyClick(Sender: TObject);
   var
     I2C_DevAddr: byte;
  -  I2C_ChunkSize: Word;
  +  I2C_ChunkSize: Word = 65535;
   begin
   try
     ButtonCancel.Tag := 0;
  
positive.code: 
  procedure TMainForm.ButtonReadClick(Sender: TObject);
  var
    I2C_DevAddr: byte;
    I2C_ChunkSize: word;
  begin
  try
  
negative.code:   PageSize: word;
    WriteType: byte;
    I2C_DevAddr: byte;
    I2C_ChunkSize: Word = 65535;
  begin
  try
    ButtonCancel.Tag := 0;
  