Проблема с отправкой через IdSMTP

procedure send;
var
attach:TidAttachment;
msg:tidmessage;
begin
  Form1.idSMTP1.AuthenticationType:= atLogin;
  Form1.idSMTP1.Username:='mail@mail.ru';
  Form1.idSMTP1.Password:='Тут пароль от мыла';
  Form1.idSMTP1.Host:='smtp.mail.ru';
  Form1.IdSMTP1.Port:=25;
  msg:=TIdMessage.Create(nil);
  msg.Body.Add('test ');
  msg.Subject:='test mail';
  msg.From.Address:='mail@mail.ru';
  msg.From.Name:='mail@mail.ru';
  msg.Recipients.EMailAddresses:='mail@mail.ru';
  msg.IsEncoded:=true;
  //attach:=TIdAttachment.Create(msg.MessageParts,'C:\attach.rar');
  Form1.idSMTP1.Connect();
  if Form1.idSMTP1.Connected then
  begin
   Form1.idSMTP1.Send(msg);
   showmessage('Sending complete...');
  end
  else
  showmessage('No connect ');
  Form1.IdSMTP1.Disconnect;
end;
attach.Free;
end;