邮件发送 ( 积分: 50 )

try
self.IdSMTP1.Connect();
try
self.IdSMTP1.Send(idmessage1);
showmessage('E-mail已发送成功.');
finally
self.IdSMTP1.Disconnect;
end;
except
on e:exception do
begin
showmessage('E-mail发送失败：'+E.Message);
end;
end;

请帮我看下这段代码错在哪里 谢谢了