Получение кириллических символов от TMemo

Question

Я разрабатываю приложение с использованием Lazarus, и мне нужно получить символы текста, который пользователь ввел в компонент TMemo. Я использую следующий код для извлечения символов по одному (здесь mmText этих имя компонента ТМет):

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 
     ... 

Когда латинские символы вводятся в компоненте ТМета, всплывающие сообщения с каждой буквой появляется, но когда цикл достигает кириллического характера, в поле всплывающего окна ничего нет.

Не могли бы вы дать мне совет, что я должен сделать для достижения желаемого результата?

Answer 1

Для тех, кто заинтересован, ответ здесь:

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