перевести символ из латиницы в кириллицу

[StartMis]

подскажите есть ли функция для перевода символа из латиницы в кириллицу? т.е из 'D' в 'В'

[Neeter]

procedure TForm1.Button1Click(Sender: TObject);
const
 L: array[0..25] of char = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l',
   'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z');
 K: array[0..25] of char = ('ф', 'и', 'с', 'в', 'у', 'а', 'п', 'р', 'ш', 'о', 'л', 'д',
   'ь', 'т', 'щ', 'з', 'й', 'к', 'ы', 'е', 'г', 'м', 'ц', 'ч', 'н', 'я');
var
 i: byte;
begin
 for i := 0 to 25 do
 begin
  //Проверяем в нижнем регистре
  if Edit1.Text[1] = L[i] then
  begin
   Edit2.Text := K[i];
   Break;
  end;
  //И в верхнем тоже
  if Edit1.Text[1] = AnsiUpperCase(L[i]) then
  begin
   Edit2.Text := AnsiUpperCase(K[i]);
   Break;
  end;
 end;
end;

Тут переводятся только английские буквы, я думаю, вы сможете сами добавить и символы. Например английская запятая соответствует русской букве "б".

[DeKot]

Можно добавить сначала проверку раскладки клавиатуры

var Lang: boolean; // глобально
procedure TForm1.Timer1Timer(Sender: TObject); // автоматич. определение раскладки клавиатуры
begin
  if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
  lang:= true  //раскладка английская
  else
  lang:= false; //раскладка НЕанглийская, например 68748313 соответствует русской
end;

И если lаng = true и код нажатой клавиши в диапазоне
[65 .. 90] (латин. символы), то переводить символ в русскую раскладку через массив,как показано выше.