用INDY的 TIdSMTP和TIdMessage为什么老是报告"system is busy"

with idMessage1 do
      begin
      Body.Assign(SendText.Lines); //邮件正文
      From.Address :=Trim(E_EmailAddr.Text); //发件人地址
      Recipients.EMailAddresses := Trim(E_SendAddr.Text); //收件人地址
      Subject := E_Subject.Text; //邮件主题
      end;
    with idSmtp1 do
      begin
      Host := E_host.Text; // like: smtp.163.com
      Password:=E_PassWord.Text;//like: aaa
      Username:=E_Acount.Text; //like:[email protected]
      Port := 25; // smtp服务默认的端口为25
      Connect; //连接到服务器
        try
        Send(IdMessage1); //发送刚才创建的邮件
        ShowMessage('发送完毕'); //发送完毕后提示
        finally
        Disconnect; //断开服务器连接
        end;
     end;