Aplicação Móvel efetuando chamadas. Delphi XE5.

Neste post vou mostrar um exemplo básico, porem muito interessante o qual iremos fazer chamadas a partir de uma aplicação  móvel desenvolvida com Delphi XE5. 
Criaremos então uma aplicação(FireMonkey Mobile) que terá apenas um TEdit e um TButton.

Antes de iniciarmos a implementação do código que ira efetuar a chamada, devemos adicionar a cláusula uses os seguintes Namespaces: FMX.PhoneDialer, FMX.Platform.








Agora, no evento OnClick do nosso botão  implementaremos o seguinte código.

TPlatformServices.Current.SupportsPlatformService retorna se o serviço passado como parâmetro está disponível na plataforma que o aplicativo está sendo executado.