[Kpyc]

Кажется я неправильно описал проблему
OnKeyPress Edit'a:

Код:

  if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) <> 67699721
    then begin
          KL := LoadKeyboardLayout('00000409', 0);
          ActivateKeyboardLayout(KL, 1); // устанавливаем aнгл язык
          Key := #0;
          ShowMessage('Язык ввода изменен на английский.');
         end;

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