ضمن الحدث OnEnter الخاص بالمكون:
;(procedure TForm1.Edit1Enter(Sender: TObject
begin
[size=small](ActivateKeyBoardLayout(Hkl(67186689),0 [/size]
;end
وفي حال وجود أكثر من مكون يمكن دمجهم كلهم في حدث واحد.
هذه افضل طريقة للتحكم بلغة الأدخال ونصحية عدم إستخدام طريقة تغيير خصائص الويندوز لأنها طريقة مزعجة للمستخدم.