Need a Delphi command line program for SMTP & support SOCKS

I need a command line program written by Delphi 7 (if you instead use 2007 or above, it's also Ok.) : That program can send email via SMTP (ESMTP); : That program can support socks4/5 (default is socks5); : That program support SSL, like gmail; : That program support attachment; You can use any opensource project, but I need full source code. You can refer [login to view URL] , they provide a demo. The only diffent is they not support SOCKS now. * I only pay milestone after you provide me a demo version; * I can provide you few test accounts;