[fpc-pascal] some new features to delphi prisem

[Jürgen Hestermann]

> y := case Other of
>          bla : 'hello';
>          foo : 'bye';
>          baz : 'adius';
>        end;

What do you gain with this?
Doesn't look much different to

case Other of
   bla : y := 'hello';
   foo : y := 'bye';
   baz : y := 'adius';
   end;