delphi的控件限定取值修改的问题？

Question

现在有个下拉控件的值是1-8。我需要当值在它的值等于2，5，6的时候就可以修改其值，而且也只能在2，5，6之间修改。
我现在写的代码如下：
  if bedtship_type.itemindex = 2 then
  begin
   bedtShip_Type.ReadOnly := False;
   bedtShip_Type.Items.Clear;  
   bedtShip_Type.Values.Clear;
   bedtShip_Type.Items.Add('自提');
   bedtShip_Type.Items.Add('大荣配送');
   bedtShip_Type.Items.Add('包车配送');
   bedtShip_Type.Values.Add(IntToStr(3));
   bedtShip_Type.Values.Add(IntToStr(7));
   bedtShip_Type.Values.Add(IntToStr(8));
  end;
    if bedtship_type.itemindex = 6 then
  begin
   bedtShip_Type.ReadOnly := False;
   bedtShip_Type.Items.Clear;
   bedtShip_Type.Values.Clear;
   bedtShip_Type.Items.Add('自提');
   bedtShip_Type.Items.Add('大荣配送');
   bedtShip_Type.Items.Add('包车配送');
   bedtShip_Type.Values.Add(IntToStr(3));
   bedtShip_Type.Values.Add(IntToStr(7));
   bedtShip_Type.Values.Add(IntToStr(8));
  end;
    if bedtship_type.itemindex = 7 then
  begin
   bedtShip_Type.ReadOnly := False;
   bedtShip_Type.Items.Clear;
   bedtShip_Type.Values.Clear;
   bedtShip_Type.Items.Add('自提');
   bedtShip_Type.Items.Add('大荣配送');
   bedtShip_Type.Items.Add('包车配送');
   bedtShip_Type.Values.Add(IntToStr(3));
   bedtShip_Type.Values.Add(IntToStr(7));
   bedtShip_Type.Values.Add(IntToStr(8));
  end;
现在存在这样个问题，如果是把数据全部搜索出来，先看bedtship_type.itemindex=2，6，7的之后，因为把他们的值给清空了，只留了2，6，7的值，所以再选其他的值的时候，就取不到值。
请问各位有什么好的解决方法，不一定要在我这基础上做修改

Answer 1

清空之前先保存起来，完成操作后再加进来。