OnMarkerClick Error with Modal Dialog

FMX TMS FMX WebGMaps
6

I've put together a simple FMX Win32 app to demonstrate the problem. 
The app works fine in XE8 and 10 Seattle. 
It
breaks in 10.1 Berlin and 10.2 Tokyo, so something got changed either
in the code base of the Maps component, or the FMX framework.  Without
access to the Maps source I cannot tell.

How do I log this as a bug at TMS ?

The code is as follows


program HeaderFooterApplication;

uses
  System.StartUpCopy,
  FMX.Forms,
  HeaderFooterTemplate in 'HeaderFooterTemplate.pas' {HeaderFooterForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(THeaderFooterForm, HeaderFooterForm);
  Application.Run;
end.


The main unit


unit HeaderFooterTemplate;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.ListBox, FMX.TMSWebGMapsWebBrowser, FMX.TMSWebGMaps,
  FMX.Controls.Presentation;

type
  THeaderFooterForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    TMSFMXWebGMaps1: TTMSFMXWebGMaps;
    ComboBox1: TComboBox;
  private
  public
  end;

var
  HeaderFooterForm: THeaderFooterForm;

implementation
{$R *.fmx}
end.



And the dfm file


object HeaderFooterForm: THeaderFooterForm
  Left = 0
  Top = 0
  Caption = 'Header Footer Form'
  ClientHeight = 567
  ClientWidth = 384
  FormFactor.Width = 1440
  FormFactor.Height = 900
  FormFactor.Devices = [Desktop]
  DesignerMasterStyle = 0
  object Header: TToolBar
    Size.Width = 384.000000000000000000
    Size.Height = 48.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 0
    object HeaderLabel: TLabel
      Align = Contents
      Size.Width = 384.000000000000000000
      Size.Height = 48.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'toollabel'
      TextSettings.HorzAlign = Center
      Text = 'Title'
    end
  end
  object Footer: TToolBar
    Align = Bottom
    Position.Y = 519.000000000000000000
    Size.Width = 384.000000000000000000
    Size.Height = 48.000000000000000000
    Size.PlatformDefault = False
    StyleLookup = 'bottomtoolbar'
    TabOrder = 1
    object TMSFMXWebGMaps1: TTMSFMXWebGMaps
      Position.X = 8.000000000000000000
      Position.Y = -464.000000000000000000
      Version = '2.8.0.2'
      Size.Width = 361.000000000000000000
      Size.Height = 441.000000000000000000
      Size.PlatformDefault = False
      Clusters = <>
      Markers = <>
      Polylines = <>
      Polygons = <>
      Directions = <>
      MapOptions.DefaultLatitude = 48.859040000000000000
      MapOptions.DefaultLongitude = 2.294297000000000000
      Routing.PolylineOptions.Icons = <>
      StreetViewOptions.DefaultLatitude = 48.859040000000000000
      StreetViewOptions.DefaultLongitude = 2.294297000000000000
      PolygonLabel.Font.Family = 'Arial'
      TabOrder = 0
    end
    object ComboBox1: TComboBox
      Items.Strings = (
        'ABC'
        'DEF')
      Position.X = 64.000000000000000000
      Position.Y = 8.000000000000000000
      Size.Width = 217.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 1
    end
  end
end