[Bars1992]

Я эту статью пробывал выполнить но у меня чтотоне вышло ошыбку выкидывало. Янашел другую и вышло)) Вот пример отправки

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  mes: TIdMessage;
begin
  mes:=TIdMessage.Create(Form1);
  IdSMTP1.Host:='SMTP.mail.ru';   //Здесь меняете хост ,если нада
  IdSMTP1.Port:=2525;
  IdSMTP1.AuthenticationType:=atLogin;
  IdSMTP1.Username:='Ваш E-mail';
  IdSMTP1.Password:='Ваш пароль';

with mes do
  begin
    Body.Add('Это сообщение');
    From.Text := 'Ваш E-mail';
    Recipients.EMailAddresses := 'Ваш E-mail';
    Subject := 'Какая то тема письма';
  end;

  IdSMTP1.Connect;
  If IdSMTP1.Connected Then IdSMTP1.Send(mes);
  IdSMTP1.Disconnect;
end;