Delphi case 语句使用

procedure TForm1.Button1Click(Sender: TObject);
var
number:integer;      //定义变量number
begin
    number:=strtoint(edit1.Text); // 吧 edit1的内容赋值给number 转换字符串位整形

    case number of                //使用case语句 判断number

    1,2,3:showmessage ('123');        // edit1输入内容1,2,3 则执行后面语句

    5,6,7:showmessage ('5,6,7')     //edit1输入内容5,6,7 则执行后面语句
end;                   //要多写一个 end;我也不知道为啥 ,总之不写就会出错
     end;
end.