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