一个关于邮件收发的问题

idSMTP1.Host := 'smtp.netease.com';
IdSMTP1.Port := 25;
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Username := 'qishaoyun';
IdSMTP1.Password := '*********';try
if IdSMTP1.Connected then showmessage('ok')
else showmessage('失败');
 ;//:= true;
exceptexit;
end;
try
//IdMessage1.Subject
  with IdMessage1 do
   begin
    body.Clear;
    Body.Add('hello world');//内容
    From.Text := '[email protected]';
    Recipients.EMailAddresses :='[email protected]';//收件人
    Subject:='TEST'//主题
  end;
 IdSMTP1.Send(IdMessage1);
 finally
 IdSMTP1.Disconnect;
 end;
为何发送不成功！连接smtp时，总是不成功，请各位大虾指教