关于case 的问题

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  aaaa : integer;
    abc,abcd : integer;
begin
  abc := 1;
  abcd :=2;
  case aaaa of
    abc:
    begin
      //
    end;
    abcd:
    begin
      //
    end;
  end;
end;编译不通过 显示 constant expression excepted

Answer 1

case aaaa of
    1:
    begin
      //
    end;
    2:
    begin
      //
    end;
  end;

Answer 2

难道case of
    这个地方就不能用变量吗?

Answer 3

const
  abc = 1;
  abcd =2;
var
  aaaa : integer;
begin  case aaaa of
    abc:
    begin
      //
    end;
    abcd:
    begin
      //
    end;
  end;
end;