anchor.diff:    if Columnbox_WaresGDP.IsSelected then
       SelectedGDPItemTag := Columnbox_WaresGDP.SelectedItem.Tag;
   
  +  SelectedTopIndex := Columnbox_Wares.TopIndex;
  +  SelectedGDPTopIndex := Columnbox_WaresGDP.TopIndex;
     //Prepare columnboxes
     Columnbox_Wares.Clear;
     Columnbox_WaresGDP.Clear;
  
positive.code:   end;
  
  var
    I,K,J,WareInGDP, SelectedItemTag, SelectedGDPItemTag: Integer;
    W: TKMWareType;
    ListRow: TKMListRow;
    ST: TKMStatType;
  
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
  