procedure TForm1.Button3Click(Sender: TObject);
var
       i, Count: integer;
begin
       idSmtp1.Host:='smtp.mail.ru'; // smtp сервер
       idSmtp1.Port:=25; // Порт
       idSmtp1.Username:='login'; // Логин, от кого придет письмо
       idSmtp1.Password:='pass'; // Пароль
       idMessage1.Body.Text:=edit1.text; // Текст письма будем его вводить в edit
       idMessage1.From.Text:='login@mail.ru'; // от кого email адрес
       idMessage1.Recipients.EMailAddresses:='login2@mail.ru'; // и кому отправляем
       idMessage1.Subject:='Тема';
       idSmtp1.Connect();
       if idSmtp1.Connected=true then
       begin
          Count:=500; //500 количество писем
          for i:=0 to Count do
             idSmtp1.Send(idmessage1);
       end;
       idSmtp1.Disconnect
end;