delphi - TJvAppXMLFileStorage OnGetFileName イベントは実行されませんでした

Question

JVCL 3.48 を使用する Delphi 10 シアトルでは、TJvAppXMLFileStorage OnGetFileNameイベント ハンドラを実装した後、実行されません。

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

他の設定に依存JvAppXMLFileStorage1.Locationするパラメータでプロパティを設定するには、このイベントが必要です。var FileName

では、このイベントを実行するにはどうすればよいでしょうか。