{ uses ... IdMessage, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP; }

procedure TForm1.Button1Click(Sender: TObject);
var q:integer;
begin
q:=0;
idSMTP1.host:=Edit1.Text;
idSMTP1.Port:=25;
idSMTP1.Username:=Edit2.Text;
idSMTP1.Password:=Edit3.Text;
 with idMessage1 do
 begin
 From.Text:=Edit4.Text;
 Recipients.EMailAddresses:=Edit5.Text;
 Memo1.Lines.Add('Connecting...');
 Statusbar1.SimpleText:=('Connecting...');
 end;
 idSMTP1.Connect;
 try
 begin
 Form1.Repaint;
 Memo1.Lines.Add('Connected');
 Memo1.Lines.Add('Sending...');
 StatusBar1.SimpleText:='Sending...';
 end;
 while q<strtoint(Edit6.Text) do
 begin
 q:=q+1;
 idMessage1.Subject:=(IntToStr(Random(10000)) + Edit7.Text);
 Memo2.Lines.Delete(2);
 Memo2.Lines.Insert(2,inttostr(random(10000)));
 Sleep(600);
 idSMTP1.Send(idMessage1);
 ProgressBar1.Position:=Round(100*q/strtoint(Edit6.Text));
 Memo1.Lines.Add('Sended: '+inttostr(q));
 Statusbar1.SimpleText:=('In process...');
 end;
 finally;
 idSMTP1.Disconnect;
 Memo1.Lines.Add('Отправлено '+inttostr(q)+' сообщений');
 Form1.Repaint;
 Statusbar1.SimpleText:=('Finished');
 end;
 end; { © [K4t] }