Поиск сообщества

Пробовал реализовать отправку e-mail из приложения. Делал вот по этой теме: http://fire-monkey.ru/topic/1202-otpravka-pisma-na-pochtu/ На Android все работает прекрасно под ios на глухо зависает. Код получился вот такой: SMTP.Host:= 'smtp.yandex.ru' ; // хост SMTP.Port:= 465 ; // порт Smtp.Username:='TestUser'; Smtp.Password:='pass123'; SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1; SMTP.UseTLS :=utUseImplicitTLS ; 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; MailMessage.Body.Clear; MailMessage.Body.Add('Первая строка'); MailMessage.Body.Add('Вторая строка'); SMTP.Connect; mailMessage.CharSet := 'UTF-8'; mailMessage.CharSet:='UTF-8'; MailMessage.ContentType:='multipart/mixed; charset=UTF-8'; MailMessage.ContentType:='text/plain; charset=KOI8-R'; MailMessage.Subject:=UTF8Encode('Reserve') ; // тема MailMessage.From.Address:='testadres@yandex.ru' ; MailMessage.From.Domain:= 'yandex.ru'; // домен MailMessage.From.User:= 'TestUser'; MailMessage.From.Name:=UTF8Encode('TestUserName'); MailMessage.Recipients.EMailAddresses:='TestUser0@list.ru'; // получатель и копия //2192100@list.ru MailMessage.IsEncoded:=true; SMTP.Send(MailMessage); SMTP.Disconnect;