[Alegun]

А если так

Код:

case GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) of
67699721: Label1.Caption:='EN';
68748313: Label1.Caption:='RL'; 
else Label1.Caption:=' ';
end;