delphi 实现普通邮件和HTML邮件发送程

delphi 实现普通邮件和HTML邮件发送程，XP ，2007编译运行测试正常.

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        242  2010-12-21 12:49  SendMailOK\SendMail_ok.dpr

     文件       4262  2010-12-21 12:58  SendMailOK\SendMail_ok.dproj

     文件       3361  2008-04-10 10:03  SendMailOK\SendMail_ok.dproj.2007

     文件        740  2010-12-21 12:58  SendMailOK\SendMail_ok.dproj.local

     文件    1351680  2010-12-24 13:17  SendMailOK\SendMail_ok.exe

     文件       5280  2008-04-10 10:02  SendMailOK\SendMail_ok.res

     文件      17277  2010-12-21 23:15  SendMailOK\unitMain.dcu

     文件       8038  2010-12-24 13:46  SendMailOK\unitMain.dfm

     文件       7077  2010-12-21 23:15  SendMailOK\unitMain.pas

    ...D.H.         0  2011-02-27 21:30  SendMailOK\__history

     目录          0  2010-12-25 13:35  SendMailOK

----------- ---------  ---------- -----  ----

              1397957                    11