anchor.diff:          continue;
   
       LI := Self.LV.Items.Add();
  +    LI.Data := Pointer(i);
       LI.Caption := IntToStr(i) + ' (0x' + IntToHex(i, 2) + ')';
       for j := 0 to Self.LV.Columns.Count-1 do
         LI.SubItems.Add('');
  
positive.code: begin
   line := Self.GetLineForNewBoard(addr);
   LI := Self.LV.Items.Insert(line);
   LI.Caption := IntToStr(addr) + ' (0x' + IntToHex(i, 2) + ')';
   for i := 0 to Self.LV.Columns.Count-1 do
     LI.SubItems.Add('');
  
negative.code: var item: TListItem;
  begin
   for item in Self.LV.Items do
     Self.UpdateBoard(Integer(item.Data));
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  