uses
IdSMTP, IdMessage;

procedure TForm1.Sendmail;
var
M: TIdMessage;
SMTP: TIdSMTP;
i:integer;
begin
M := TIdMessage.Create(nil);
M.From.Text := 'sendfrom@mail.ru';
M.Recipients.Add;
M.Recipients.Items[0].Text := 'sendto@mail.ru';
M.Subject := 'Test';
M.Body.Add('Hello');

SMTP := TIdSMTP.Create(nil);
SMTP.AuthenticationType := atLogin;
SMTP.Password:='password';
SMTP.Username:='login';
SMTP.Host := 'pop.mail.ru';

SMTP.Connect;
if SMTP.Connected then
begin
For i:=1 to 100 do begin
SMTP.Send(M);
//Gauge1.Progress:=i;
Application.ProcessMessages;
end;
SMTP.Disconnect;
end;
end;