使用idsmtp组件进行邮件发送遇的问题?大侠帮看看吧

Question

begin
      IdSMTP1.AuthenticationType:=atlogin;
      IdSMTP1.Host :=edit1.Text;
      IdSMTP1.Port:=25;
      IdSMTP1.Username:=edit3.Text;
      IdSMTP1.Password:=edit4.Text;
      idmessage1.Body.Text:=edit2.Text;      idmessage1.From.Text:=edit7.Text;
      idmessage1.Recipients.EMailAddresses:=edit5.Text;
      idmessage1.Subject:= edit6.Text;
      showmessage('发送成功');
      idsmtp1.Connect(5000);
      idsmtp1.Send(idmessage1);
      idsmtp1.Disconnect;    
end;
-----------------------------------------------
程序能够执行,但点button执行后出现错误提示:bad sequence of commands(错误序列).
求高手帮忙看看哪里错了那?就这个小东西把我搞的郁闷好几天了.在新做的系统上试，错误依旧(没防火墙).

Answer 1

没人知道吗?还是这问题太简单了,不屑回答?还是分太少,就10分了啊