изменение языка

[Vartizor]

Подскажите пожалуйста к сделать чтоб иконка в трее менялась вмести с раскладкой клавиатуры?

procedure TForm1.GetWindowsLanguage;
var
  hForegroundWindow: THandle;
  idProcess: DWORD;
  kbl: Cardinal;
  lang: string;
  langId: Integer;
begin
  hForegroundWindow := GetForegroundWindow;
  idProcess := GetWindowThreadProcessId(hForegroundWindow);
  kbl := LOWORD(GetKeyboardLayout(idProcess));
  case kbl of
    $409:
      langId := 2;
    $419:
      langId := 0;
    $422:
      langId := 1; //
  else
    lang := 'N/A';

  end;
 // Panel1.Caption:= lang;
  TrayIcon1.IconIndex := langId;
  if langId = 1 then
  begin
    ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); // переключить следующюю
  { HKL_NEXT Selects the next layout in the circular list of loaded layouts maintained by the system.
    HKL_PREV Selects the previous layout in the circular list of loaded layouts maintained by the system.}
  end;
end;

Так значок изменяется только когда окно в фокусе а мне нужно чтоб всегда