Событие TJvAppXMLFileStorage OnGetFileName никогда не выполнялось

В Delphi 10 Seattle с JVCL 3.48 после реализации обработчика событий TJvAppXMLFileStorage OnGetFileName он никогда не выполняется:

procedure TForm1.JvAppXMLFileStorage1GetFileName(Sender:
    TJvCustomAppStorage; var FileName: TFileName);
begin
  // never gets executed!
  CodeSite.Send('JvAppXMLFileStorage1GetFileName', FileName.ToString);
end;

Мне нужно это событие, чтобы установить свойство JvAppXMLFileStorage1.Location с параметром var FileName в зависимости от других настроек.

Итак, как я могу выполнить это событие?