procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1:=TIDSMTP.Create(nil);

IdSMTP1.Port:= 25;
IdSMTP1.Host:= 'smtp.mail.ru';
IdSMTP1.Username:= '-----';
IdSMTP1.Password:= '-----';    
IdMessage1:=TIDMessage.Create(nil);
IdMessage1.Subject:= '-----';
IdMessage1.Body.Text:= '-----';
IdMessage1.From.Text:= '------';
IdMessage1.From.Name:= '------';
IdMessage1.Recipients.EMailAddresses:= '----';    
IdSMTP1.Connect();
if IdSMTP1.Connected = True then
begin
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;
end;