Abrir Navegador por defecto con URL Android Delphi XE7

[aposi]

Código Delphi [-]

uses   
Androidapi.JNI.GraphicsContentViewText,   FMX.Helpers.Android;


procedure TForm3.Button1Click(Sender: TObject); 
var   Intent: JIntent; 
begin
   Intent := TJIntent.Create;
   Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
   Intent.setData(StrToJURI('http://www.clubdelphi.com'));
   SharedActivity.startActivity(Intent);
 end;