Почему case работает только с выражениями, и не работает с функциями?

case MyFunc(i) of
3: ...;
4: ...;
default; end;

case i + j of...

case i of 3: ...;

var j: integer = 3;
...
case i of
j: ShowMessage('3');
4: ShowMessage('4');

var j: integer = 3;
...
case i of
3: ShowMessage('3');
4: ShowMessage('4');

procedure TForm1.Button1Click(Sender: TObject);
  begin
    case ComboBox1.ItemIndex of
      0:
      begin
        ShowMessage('0');
      end;  
      1:
      begin
        ShowMessage('1');
    end;
  end;

const Klpdw: DWORD = 6366191;
...
var kb: DWORD;
...
kb := MyFunc;
case kb of
Klpdw: ...;// так не работает, вывзвает ошибку Constant Expression expected
6366191: ...;// а так работает

const
i1 = 3;
i2: integer = 3;
s1 = 'stroka';
s2: string = 'stroka';
...
 
case i of
i1: ...; // работает
i2: ...; // не работает, выдает Constant expression expected
 
case s of
s1: ...; // работает
s2: ...; // не работает выдает Constant and CASE types do not match

kb := GetCurrentKbrd;
case kb of
RU: ...;
EN: ...;

kb := GetCurrentKbrd;
case kb of
68748313: ...;
67699721: ...;