отключить автоматическое изменение раскладки клавиатуры в DbGrids.pas в VCL

Я использую ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE);для загрузки персидской раскладки клавиатуры с помощью Delphi XE2, но иногда я нажимаю на TextBox или DbGrid, управляя клавиатура автоматически меняется на английскую раскладку

Как отключить автоматическую смену раскладки клавиатуры?