Транслитерация отдельных слов в memo

[lamer811]

Всем доброго времени суток
Встала задача перевести русские буквы в английские по собственному словарю - это было решено довольно быстро, но дальше встала загвоздка.
Допустим имеется 2 поля memo, с исходным текстом и результатом
Нужно, чтобы транслировались слова через одно.
Например:
Исходный текст: Какая сегодня хорошая погода
Результат должен получиться: Kakaя сегодня xopoшaя погода
Подскажите как это реализовать?


Мой код функции:

function Transliterate(s: string): string;
var
 i: integer;
 t: string;
begin
 for i:=1 to Length(s) do
  begin
   case s[i] of
        'а': t:=t+'a';
        'А': T:=T+'A';
        'б': t:=t+'6';
        'Б': T:=T+'6';
        'в': t:=t+'B';
	'В': T:=T+'B';
        'г': t:=t+'r';
        'Г': T:=T+'r';
        'е': t:=t+'e';
        'Е': T:=T+'E';
        'ё': t:=t+'e';
        'Ё': T:=T+'E';
        'з': t:=t+'3';
        'З': T:=T+'3';
      else t:=t+s[i];
   end;
  end;
 Result:=t;

Код кнопки:

var
 i: integer;
begin
 Memo2.Lines.Clear;
 for i:=0 to Memo1.Lines.Count-1 do
  Memo2.Lines.Add(Transliterate(Memo1.Lines.Strings[i]));
end;

[Sparkman]

function Seps(As_Arg: Char): Boolean;
begin
     Seps := As_Arg in [#0..#$1F, ' ', '.', ',', '?', ':', ';', '(', ')', '/', '\']; // привет Сергею Близникову ;)
end;

function Transliterate(s: string): string;
var i: integer;
    b:boolean;
begin
     b:=true;
     for i:=1 to Length(s) do
     begin
          if b and not seps(s[i]) then
          case s[i] of
            'а': s[i]:='a';
            'А': s[i]:='A';
            'б': s[i]:='6';
            'Б': s[i]:='6';
            'в': s[i]:='B';
            'В': s[i]:='B';
            'г': s[i]:='r';
            'Г': s[i]:='r';
            'е': s[i]:='e';
            'Е': s[i]:='E';
            'ё': s[i]:='e';
            'Ё': s[i]:='E';
            'з': s[i]:='3';
            'З': s[i]:='3';
            'к': s[i]:='k';
            'К': s[i]:='K';
          end
          else if b and seps(s[i]) then b:=false
          else if not b and seps(s[i]) then b:=true;
     end;
     Result:=s;
end;