敢问如何用winsock api在delphi中实现发送smtp验证邮件??我找了好多资料都没搞到!100分

敢问如何用winsock api在delphi中实现发送smtp验证邮件??我找了好多资料都没搞到!请各位高手指教,如有哪位"传奇人物"给完整无错的api代码(不用任何控件),加300分奉送,另有重谢!!请大家不吝赐教哦!如果你有代码请把它发到,再跟帖说一声啊!当然你可以把它帖出来让大家分享啊,先谢各位!!!!!!!!!!