怎样用delphi编写一个在线发送邮件的程序

你这个问题有点不好说，你用indy插件比较好用
下面是不用控件实现的方法：
uses
　windows,messages,winsock,sysutils;
{$R *.RES}
const
　CRLF=#13#10;
　exename:pchar='邮箱信使';
var
　thd:array[1..1000] of