Программное переключение клавиатуры с разделителем

function KeybLayerMirror(UTF8Key: TUTF8Char;Direct:string):TUTF8Char;
var
  Ru,En,L1,L2:array of byte;
  i:integer;
  k:byte;
  s: String;
begin
  Ru :=                    //Массив ASCII-значений русской раскладки
  [233,246,243,234,229,236,227,248,249,231,245,250,  //первая строка, строчные буквы
  244,251,226,224,239,240,238,235,228,230,253,       //вторая строка, строчные буквы
  255,247,241,237,232,242,252,225,254,               //третья строка, строчные буквы
  201,214,211,202,197,204,195,216,217,199,213,218,   //первая строка, shift+символ
  212,219,194,192,207,208,206,203,196,198,221,       //вторая строка, shift+символ
  223,215,209,205,200,210,220,193,222];              //третья строка, shift+символ
  En :=                    //Массив ASCII-значений английской раскладки
  [113,119,101,114,116,118,117,105,111,112,91,93,    //первая строка, строчные буквы
  97,115,100,102,103,104,106,107,108,59,39,          //вторая строка, строчные буквы
  122,120,99,121,98,110,109,44,46,                   //третья строка, строчные буквы
  81,87,69,82,84,86,85,73,79,80,123,125,             //первая строка, shift+символ
  65,83,68,70,71,72,74,75,76,58,34,                  //вторая строка, shift+символ
  90,88,67,89,66,78,77,60,62];                       //третья строка, shift+символ
  case trim(lowercase(Direct)) of                    //Оператор множественного выбора
    'ru-en' :
    begin
      L1:=Ru; L2:=En;
    end;
    'en-ru' :
    begin
      L1:=En; L2:=Ru;
    end
    else exit;
  end;
  //Код введённого с клавиатуры символа
  //конвертируется из UTF-8 в кодировку Windows
  //и результат присвоить переменной s.
  s := Utf8ToWinCP(UTF8Key);
 
  //вернуть код, присвоенный переменной s
  //и присвоить его переменной k.
  k := Ord(s[1]);
 
  //Цикл проходит по массиву L1, находит
  //присвоенный переменной k код;
  //в результат выводит символ из
  //массива L2 с тем же порядковым номером i.
  for i:=0 to GetArrayLength(L1)-1 do
  if k = L1[i] then
  result := WinCPToUtf8(Chr(L2[i]));
end;
 
 
procedure Edit1_OnUtf8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin
 
  UTF8Key := KeybLayerMirror(UTF8Key,'en-ru');
end;
 
procedure Edit2_OnUtf8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin
  UTF8Key := KeybLayerMirror(UTF8Key,'ru-en');
end;                 
 
ComboBox19.OnUtf8KeyPress:= @Edit2_OnUtf8KeyPress;