for i :=0 to lvl1.Items.Count 25 do for c :=25 to lvl1.Items.Count 50 do for b :=50 to lvl1.Items.Count 75 do