从TMemo中获取西里尔字符

Question

我正在使用Lazarus开发应用程序，我必须获取用户在TMemo组件中输入的文本字符。我使用以下代码逐个获取字符（此处mmText是TMemo组件的名称）：

var
  I, J: Integer;
  Line: String;
  Symbol: Char;
begin
  for I := 0 to mmText.Lines.Count-1 do
  begin
    Line := mmText.Lines[I];

    for J := 1 to Length(Line) do
    begin
      Symbol := Line[J];
      ShowMessage(Symbol); //this line is for debugging purposes 
      ...

当在TMemo组件中输入拉丁字符时，会出现带有每个字母的弹出消息，但是当循环达到西里尔字符时，弹出消息框中没有任何内容。

你能否告诉我应该做些什么来达到预期的效果？

Answer 1

对于那些感兴趣的人，答案就在这里：

http://forum.lazarus.freepascal.org/index.php?topic=29146.msg183536#msg183536