Перевод текста в код Морзе (Delphi)

[pomoshnic]

Помогите исправить проблему.
Таблица Морзе:



Вот написал такой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    GroupBox2: TGroupBox;
    Memo2: TMemo;
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
const morse: array [ord('А')..ord('Я')] of string [5] = (
'.-   ','-... ','.--  ','--.  ',
'-..  ','.    ','...- ','--.. ',
'..   ','.--- ','-.-  ','.-.. ',
'--   ','-.   ','---  ','.--. ',
'.-.  ','...  ','-    ','..-  ',
'..-. ','.... ','-.-. ','---. ',
'---- ','--.- ','-..- ','-.-- ',
'..-..','..-- ','.-.- ');
var s,t:string;
i,j:word;
begin
memo2.Clear;
for i := 1 to memo1.lines.count do
begin
  s:=memo1.lines[i];
  for j := 1 to length(memo1.lines[i]) do
    t:=t+morse[ord(upcase(s[j]))]+' ';
  memo2.lines.Add(t);
end;
end;

end.

Но почему-то в memo2 не отображается код Морзе.
Заранее благодарен.

[Sazary]

Вот так работает:

procedure TForm1.Memo1Change(Sender: TObject);
const morse: array [ord('А')..ord('Я')] of string [5] = (
'.-   ','-... ','.--  ','--.  ',
'-..  ','.    ','...- ','--.. ',
'..   ','.--- ','-.-  ','.-.. ',
'--   ','-.   ','---  ','.--. ',
'.-.  ','...  ','-    ','..-  ',
'..-. ','.... ','-.-. ','---. ',
'---- ','--.- ','-..- ','-.-- ',
'..-..','..-- ','.-.- ','.....');
var
i:word;
begin

Memo2.Clear;
for i:=1 to length(Memo1.Lines.Text) do
  begin
  if Memo1.Lines.Text[i] in ['А'..'Я'] then
    Memo2.Lines.Text := Memo2.Lines.Text + morse[ord(Memo1.Lines.Text[i])]+' '
  else Memo2.Lines.Text := Memo2.Lines.Text + Memo1.Lines.Text[i];

  end;
end;

Примечания:
upcase на русские буквы не действует, поэтому нужно писать свою функцию.
Данный код работает только с прописными буквами. Для строчных, думаю, добавите (когда напишете функцию).
В массив добавил '.....', т.к. компилятор ругался, что размеры не соответствуют.

[pomoshnic]

А у меня не работает. Выдает ошибку.
Но всеровно Огромное спасибо за помощь.

[Sazary]

А что за ошибка-то? И где показывает?

[pomoshnic]

А, уже нет ошибки. Я просто сделал чтоб переводило, и маленькие символы, а оно выдало какую-то ошибку и закрыло Delphi. А потом я заново все скопировал, и ошибку не показывало, но текст не переводит. И маленькие, и большие символы, остальные тоже.

[Sazary]

Должно работать.
Прикладываю архив с проектом и екзешником.

[pomoshnic]

Спасибо, все работает. А у меня все такое точно не работает.
Может это Делфи у меня глючит?
Огромное спасибо вам, Sazary!