你可以用另外的方法:
TNMSMTP有一个OnConnectFailed事件,将上面的Edit1.Text := '连接失败';写入事件中就可以了