Лидеры

а для Android: Uses Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes, Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText; function TfMain.GetMyImei: string; var TelephonyObj: JObject; TelephonyManager: JTelephonyManager; begin Result := ''; TelephonyObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); TelephonyManager := TJTelephonyManager.Wrap((TelephonyObj as ILocalObject).GetObjectID); Result := JStringToString(TelephonyManager.getDeviceId); end;

А не проще на TRectangle кинуть TText и управлять цветом прямоугольника? Пусть даже из run-time

Реализовывал через TIdSMTP, как и написал предыдущий оратор. Но встретился с рядом проблем, хочу поделиться с вами частичными решениями. Дело в том, что года 2-3 назад, многие почтовые сервисы перешли на авторизацию через ssl и тд и тп. На это я и напоролся. Решил проблему пока только с почтой яндекса, с маил.ру не решил и бросил. Но все по порядку. Используемые компоненты: IdAntiFreeze1: TIdAntiFreeze; MailMessage: TIdMessage; IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; IdServerIOHandlerSSLOpenSSL1: TIdServerIOHandlerSSLOpenSSL; SMTP: TIdSMTP; Далее, в вашем обработчике пишите код: SMTP.Host:= 'smtp.yandex.ru' ; // хост SMTP.Port:= 465 ; // порт Smtp.Username:= ''; //edit3.Text; // почтовый адрес Smtp.Password:= '';// edit4.Text; // пароль Для авторизации, обязательно! SMTP.UseTLS :=utUseImplicitTLS ; SMTP.Port:= 465 ; IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil); IdSSLIOHandlerSocketOpenSSL1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port); IdSSLIOHandlerSocketOpenSSL1.Host := SMTP.Host; IdSSLIOHandlerSocketOpenSSL1.Port := SMTP.Port; IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned; SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1; MailMessage.CharSet := 'KOI8-R'; MailMessage.From.Name:= ''; // имя MailMessage.Subject:= 'Проверка электронного ящика пользователя.' ; // тема MailMessage.From.Address:= 'адрес с которого посылаете' ; MailMessage.From.Domain:= 'yandex.ru'; // домен MailMessage.From.User := 'PharmSuitePro'; MailMessage.From.Name := 'PharmSuitePro'; MailMessage.Recipients.EMailAddresses:= ''; // получатель и копия MailMessage.Body.Text: // тело письма MailMessage.IsEncoded:=true; MailMessage.ContentType:='text/plain; charset=KOI8-R'; Коннект и посыл, можно в try SMTP.Connect; SMTP.Send(MailMessage); Это потом: SMTP.Disconnect(); Попробовал на компе, все получилось, но когда стал пробовать на реальном сервере, пришла ошибка, пришлось обновлять open SSL, и все заработало!

IOS не позволяет получить IMEI устройства.

Estra ответил на вопрос относительно кнопки "Назад". Что касается баннера, возможно здесь нужно задать размеры. Попробуйте например выставить align в mostbottom и посмотрите, что получится. Вы используете процедуру BannerAd1ActionCanBegin, в теле которой загружаете баннер. Описание этого события гласит: "Occurs after your user taps the advertising banner, and before the banner responds to this user action." То есть событие происходит после того как пользователь нажмет на баннер. Поэтому в Вашем коде баннер грузится только после нажатия на контейнер. Вы точно здесь ничего не путаете?