anchor.diff:    end;
   
   var
  -  I,K,J,WareInGDP, SelectedItemTag, SelectedGDPItemTag: Integer;
  +  I,K,J,WareInGDP, SelectedItemTag, SelectedGDPItemTag, SelectedTopIndex, SelectedGDPTopIndex: Integer;
     W: TKMWareType;
     ListRow: TKMListRow;
     ST: TKMStatType;
  
positive.code:   if Columnbox_WaresGDP.IsSelected then
      SelectedGDPItemTag := Columnbox_WaresGDP.SelectedItem.Tag;
  
    //Prepare columnboxes
    Columnbox_Wares.Clear;
    Columnbox_WaresGDP.Clear;
  
negative.code:       Break;
      end;
    end;
  
    Columnbox_Wares.TopIndex := SelectedTopIndex;
    Columnbox_WaresGDP.TopIndex := SelectedGDPTopIndex;
  
    //Fill in chart values
    for ST := Low(TKMStatType) to High(TKMStatType) do
  