急急急！关于smtp发送邮件问题？

Question

我用delphi自带的控件idsmtp发送邮件，用宽带上网发邮件没问题，但用拨号就有问题，我该如何解决？（网速问题吗？），提示“连接不到smtp服务器”，我以前发过贴子，回答我说：把smtp控件的超时设置适当加长，我把smtp的readtimeout设成了15000 ，还是不行，我设的对吗，我该怎么办？

Answer 1

我的程序一部分：
try
smtp1.Connect;
except
showmessage('连接smtp服务器失败!');
exit;
end;

Answer 2

try
   try
      smtp1.Connect;
      smtp1.Send(Femail);
   Except
      smtp1.DisconnectSocket ;
      smtp1.Disconnect ;
      application.MessageBox('连接SMTP服务器出现错误','错误',MB_ICONERROR);
      exit;
   end;
finally
  smtp1.DisconnectSocket ;
  smtp1.Disconnect ;
end;

Answer 3

try
   try
      smtp1.Connect;
      smtp1.Send(Femail);
   Except
      smtp1.DisconnectSocket ;
      smtp1.Disconnect ;
      application.MessageBox('连接SMTP服务器出现错误','错误',MB_ICONERROR);
      exit;
   end;
finally
  smtp1.DisconnectSocket ;
  smtp1.Disconnect ;
end;