anchor.diff:  var
     ChunkSize: Word;
     BytesRead, i: integer;
  -  DataChunk: array[0..4095] of byte;
  -  DataChunkFile: array[0..4095] of byte;
  +  DataChunk: array[0..2047] of byte;
  +  DataChunkFile: array[0..2047] of byte;
     Address: cardinal;
   begin
     if (StartAddress >= DataSize) or (DataSize = 0) then
  
positive.code: var
    ChunkSize: Word;
    BytesRead, i: integer;
    DataChunk: array[0..4095] of byte;
    DataChunkFile: array[0..4095] of byte;
    Address: cardinal;
  begin
    if (StartAddress >= ChipSize) or (ChipSize = 0) then
  
negative.code: 
  procedure WriteFlash25(var RomStream: TMemoryStream; StartAddress, WriteSize: cardinal; PageSize: word; WriteType: integer);
  var
    DataChunk: array[0..2047] of byte;
    DataChunk2: array[0..2047] of byte;
    Address, BytesWrite: cardinal;
    i: integer;
    sreg: byte;
  