hacer llamada telefonica en delphi xe7

[[kurono]]

amigos les cuento que e estado rompiendome la cabeza con este problema y se me ocurrio cambiar el codigo por otro pero lamentablemente obtengo el mismo resultado aqui le muestro el otro codigo

Código Delphi [-]
 uses
 IdURI, Androidapi.Helpers,
 Androidapi.Jni.GraphicsContentViewText,
 Androidapi.Jni.Net, Androidapi.Jni.JavaTypes;

procedure TForm1.Button1Click(Sender: TObject);
 var
  uri : string;
  Intent : JIntent;
begin
  uri :='tel://'+Edit1.Text;
 try
   Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_CALL, TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(uri))));
   SharedActivity.startActivity(Intent);
   except
    on E: Exception do
    ShowMessage(E.Message);
   end;
 end;
end.