[Lazarus] Case error with cirilyc

[dmitry boyarintsev]

As Vincent mentioned earlier, LCL works with UTF8 Encoded strings.

You need to convert Memo.Text to ansi string first:

procedure TForm1.Button1Click(Sender: TObject);
var
 stInp: String;
 stOut: String;
 i: integer;
begin
 stOut := '';
 stInp := UTF8Decode(Memo1.Lines.Text); // convert the string
  for i := 1 to length(stInp) do
 Begin
....

thanks,
dmitry