Замена слов по словарю, Простейший переводчик Опции

[Незнакомец]

Здравствуйте. Не могли бы подсказать как сделать вот такую штуку: замешательство
в TMemo находится английский текст (например:

Hello world

), как сделать так чо бы считывать слова и вставлять их перевод в др мемо из файла-словаря?
В файле слова находятса в таком виде:


..................
hello привет
..................
..................
world мир
...............



И результат получался бы типа такого:

привет мир

[Н]

Вот делал вывод в мемо так:

 
procedure TForm1.Button1Click(Sender: TObject);

var
  s, next_word, next_word_rus, t: string;
  i: byte;
  currLine: integer;
  
begin        
    t:='';
    ER:=TStringList.Create;
   ER.LoadFromFile('voc.txt');
   For currLine := 0 To Pred(memo1.Lines.Count) Do Begin
  s := memo1.Lines.Strings[currLine];
   i := 1; next_word := '';
   while i <= length(s) do begin
    if upcase(s[i]) in ['A'..'Z'] then begin
      next_word := next_word + s[i]; inc(i)
    end
    else begin
      if next_word <> ''then next_word_rus:=ER.Values[next_word];
 if next_word_rus='' then next_word_rus:=next_word;

   t:= t +  next_word_rus;
  
  t:= t +  s[i];

      next_word := ''; inc(i);
    end;
  end;
 
 Memo2.Lines.Append(t);

end;  er.free  end;
 

но выводится какая то чуш:

    Hello, world!!!   

перевод

    привет,привет мир!мир!мир! 

Как еще можно сделать вывод в мемо?