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

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

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

Hello world

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


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



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

привет мир

[volvo]

У меня вот так работает:

function TForm1.replace_word (var ER: tstrings; next_word: string): string;
var  next_word_rus: string;
begin
 next_word_rus:=ER.Values[next_word];
 if next_word_rus='' then next_word_rus:=next_word;
 result := next_word_rus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s, next_word, t: string;
  i: byte;
  currLine: integer;
   ER :TStrings;

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 t := t + replace_word(ER, next_word);
        t := t + s[i];
        next_word := ''; inc(i);
      end;
    end;

    if next_word <> '' then t := t + replace_word(ER, next_word);
    memo2.Lines.Add(t);
  end;
  er.free
end;