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

Question

bedtShip_Type 这个控件。它有5个值，比如1，2，3，4，5.
如果值是1，2，3中的任意一个，则此控件可修改值，但是只能在1，2，3中间取值。
如果是4，5，则此控件不可修改值。
请问下这个判断语句怎么写？

Answer 1

var
  y:integer;
begin
  y:=strtoint(trim(edit1.Text));
  if y in [1..3] then
  begin
    bedtShip_Type :=y;
  end

Answer 2

var 
  y:integer; 
begin 
  y:=strtoint(trim(控件)); 
  if y in [1..3] then 
  begin 
    bedtShip_Type :=y; 
  end

Answer 3

这样不行啊，而且Y转化为整型后也不能直接赋值给bedtShip_Type，bedtShip_Type的值是字符型的。
我需要的是按照bedtShip_Type控件原来的值来决定是不是可以修改，如果可以修改的话，要限制它可以修改的值只是在这个控件所可以取值范围中的一部分

Answer 4

var 
  y:char; 
begin 
  //y:=strtoint(trim(edit1.Text)); 
  if y in ['1'..'3'] then 
  begin 
    bedtShip_Type :=y; 
  end