Delphi Befehl als "Link" in TWebBrowser

[Stewag]

OnBeforeNavigate gibt es in TWebBrowser unter Firemonkey nicht aber so hat es geklappt:

Code:

procedure TfSplash.WebBrowser1ShouldStartLoadWithRequest(ASender: TObject; const URL: string);
begin
  if Pos('widget', URL) > 0 then
  begin
    if FMain.CheckInternet('google.com') then
      TMisc.Open('https://play.google.com/store/apps/details.....')
    else
      showmessage('kein Internet!');
    Abort;
  end
end;

Danke Himitsu!