Для определения раскладки в другом приложении, необходимо в таймере установить проверку
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil))=67699721 then
Caption:= 'Анг'
else
Caption:='Рус';
end;
PS. В настройках своей формы (FormStyle) поставь Поверх всех окон (fsStayOnTop), чтобы увидеть результат в заголовке своей формы