Выдаёт ошибку

[DM_bite]

Написал программу для отправки SMS.Вроде без ошибок, но когда пытаюсь отправить на номер, не выдаёт сообщение об успешной отправке, а выдаёт ошибку прождав минуту

procedure TForm1.Button1Click(Sender: TObject);
var num: string;
begin
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.Body.AddStrings(sms.Lines);
case oper.ItemIndex of
0 : num := '8908'+tel.Text+'@sms.smarts.ru';
1 : num := '8960'+tel.Text+'@sms.beline.ru';
2 : num := '8927'+tel.Text+'@sms.megafon.ru';
end;
NMSMTP1.PostMessage.ToAddress.Add(num);
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
ShowMessage('Сообщение отправлено! '+ num) ;
end;

Не может выполнить именно SendMail

[Stilet]

А что за ошибка мабудь Secret?

[DM_bite]

Исключительная ситуация ESockError "Connection Failed"