[Lazarus] Case error with cirilyc

[dmitry boyarintsev]

> But this does not work if the ch is from a LCL component.
>
> E.g
> ch := Label.Caption[1];
> Because the caption will be UTF8 encoded.

well, it would work for:
  ch := UTF8Decode(Label.Caption)[1];


thanks,
dmitry