[Oleg]

Например вот это работает:

Код:

begin
  SMTP.Host:='mail.58r.ru';
  SMTP.Port:=25;   
  SMTP.Username:='test+58r.ru'; 
  SMTP.Password:='12345666';    
  SMTP.AuthenticationType:=atLogin;
 with IdMessage do
     begin
      Body.Assign(Memo1.Lines);
      From.Text := 'test@58r.ru';
      Recipients.EMailAddresses := 'masha@mail.ru';
      Subject := 'Hello';
      end;
   SMTP.Connect;
   try
  showmessage('Подключено');
  SMTP.Send(IdMessage);
   finally
      SMTP.Disconnect;
   end;
end;