Отправка сообщения на почту Delphi XE5 Android

[=_=Настя=_=]

IdSMTP1.Host:='smtp.bk.ru'; // адрес почтового сервера
IdSMTP1.Port:=25; // порт по которому будет осуществляться подключение
//
IdSMTP1.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией
IdSMTP1.Username:='bLabLabLa'; // логин пользователя
IdSMTP1.Password:='bLabLabLa'; // пароль пользователя
//
IdMessage.Recipients.EMailAddresses := 'bLabLabLa@ua.fm '; // майл получателя письма
IdMessage.From.Text := 'bLabLabLa@bk.ru'; // майл отправителя письма
IdMessage.Subject := 'HeLo!!'; // тема письма
IdMessage.Body.Text := tekst; // передача данных из memo в компонент IdMessage, для последующей отправки
IdSMTP1.Connect; // соединение с почтовым сервером
IdSMTP1.Send(IdMessage);
ShowMessage('Письмо отправлено!');

Почему данный код не работает, когда пишешь приложение для android?

error E2003: E2003 Undeclared identifier: 'AuthenticationType'
error E2003: E2003 Undeclared identifier: 'atLogin'
error E2003: E2003 Undeclared identifier: 'Recipients'
error E2066: E2066 Missing operator or semicolon
error E2003: E2003 Undeclared identifier: 'From'
error E2014: E2014 Statement expected, but expression of type 'Text' found
error F2063: F2063 Could not compile used unit 'Unit2.pas'

[=_=Настя=_=]

ну что не кто не знает?

[XE5]

Почему данный код не работает, когда пишешь приложение для android?

Откуда Вы знаете что код не работает, если судя по ошибкам Вы его не смогли откомпилировать? Задавайте вопрос правильно "Почему не компилируется код", а к вопросу крепите весь юнит приложения.

[=_=Настя=_=]

Да, не компилируется.

[Stilet]

Undeclared identifier: 'AuthenticationType'

Нет видимо в твоей Индейке такого свойства.
Этот код ты взяла из инета, но он не подходит под твою версию Инди.
Что делать? - открываешь хелп и ищешь в свойствах замену или что-то похожее на свойство, которого нет.

[XE5]

=_=Настя=_= Моё предыдущее сообщение до конца дочитайте. Конкретно семь последних слов.
Кстати да. Код от VCL. Под FMX это выглядит приблизительно так

procedure TForm1.FormCreate(Sender: TObject);
begin
IdSMTP1.Host:='smtp.bk.ru'; // адрес почтового сервера
IdSMTP1.Port:=25; // порт по которому будет осуществляться подключение
//
IdSMTP1.AuthType := satDefault; // тип подключения к серверу - с авторизацией TIdSMTPAuthenticationType = (satNone, satDefault, satSASL);
IdSMTP1.Username:='bLabLabLa'; // логин пользователя
IdSMTP1.Password:='bLabLabLa'; // пароль пользователя
IdMessage1.Recipients.EMailAddresses := 'bLabLabLa@ua.fm '; // майл получателя письма
IdMessage1.From.Text := 'bLabLabLa@bk.ru'; // майл отправителя письма
IdMessage1.Subject := 'HeLo!!'; // тема письма
IdMessage1.Body.Text := tekst; // передача данных из memo в компонент IdMessage, для последующей отправки
IdSMTP1.Connect; // соединение с почтовым сервером
IdSMTP1.Send(IdMessage1);
ShowMessage('Письмо отправлено!');
end;

На форму необходимо добавить два соответственных контролла.