[dmitryb1]

Для определения раскладки в другом приложении, необходимо в таймере установить проверку

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil))=67699721 then
 Caption:= 'Анг'
else
 Caption:='Рус';
end;

PS. В настройках своей формы (FormStyle) поставь Поверх всех окон (fsStayOnTop), чтобы увидеть результат в заголовке своей формы