Автоперключение шрифта и регистра

[Максим_Леонидович]

Подскажите, можно ли сделать так, чтобы при перемещении фокуса по разным Еdit автоматически переключался шрифт и регистр. Для каждого Еdit нужен или латинский или русский.
Спасибо.

[Ozerich]

На русский

var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

На английский

var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

[Ozerich]

А еще событие ONFocus для Edita

[Максим_Леонидович]

БОЛЬШОЕ спасибо