Отправка почты [Delphi xe5 Android] ПОМОГИТЕ!

[cholovskiy]

Всем привет. Хочу написать программу на Андроид которая будет отправлять на Почту письмо.
Вот код программы:

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
IdSMTPBase, IdSMTP, IdBaseComponent, IdMessage, FMX.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
IdMessage1: TIdMessage;
IdSMTP1: TIdSMTP;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var
msg:TIdMessage;
begin
try
msg:=TIdMessage.Create(nil);
msg.Body.Add(‘ТЕСТ 123456’);
msg.Subject:=‘ТЕМА 123’;
msg.From.Address:=‘n_o_soul@mail.ru’;
msg.From.Name:=‘GAGARIN’;
msg.Recipients.EMailAddresses:=‘n_o_soul@mail.ru’;
msg.IsEncoded:=True;
IdSMTP1.Send(msg);
msg.Free;
IdSMTP1.Disconnect;
except
on e:Exception do
begin
msg.Free;
IdSMTP1.Disconnect;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
try
IdSMTP1.Host:=‘smtp.mail.ru’;
IdSMTP1.Port:=25;
IdSMTP1.Username:=‘n_o_soul@mail.ru’;
IdSMTP1.Password:=‘pass123456’;
IdSMTP1.Connect;
except
on e:Exception do
end;
end;

end.

Когда запускаю приложение на телефоне нажымаю кнопку то кнопка остается нажатой и приложение не отвечает.
Когда же пробую этот же код но на Десктопное приложение все работает.
Помогите пожалуйста решить проблему.

[Stilet]

Чисто ради интереса поставь после каждого оператора в событии нажатия вывод сообщения чтоб узнать на каком операторе виселка.

[phomm]

Возможно, в опциях проекта , в настройках под андроид надо выставить разрешения для данного приложения ? По дефолту может закрыты разрешения на доступ в инет или по почтовым протоколам.
Ещё не лишним будет

on e:Exception do
begin
  ShowMessage(e.Message);
...