delphi7+indy9发送邮件源码（测试通过）

delphi7 indy9 通过 
procedure TForm1.Button1Click(Sender: TObject); 
var 
    filename: string; 
begin 
filename := ExtractFilePath(Application.ExeName) + 'YouImg.jpg'; 
//MemoInfo.Clear; 
//1:对所必须要的信息进行进行检验 
//校验服务器属性 
if (Trim(HostName.Text)='') or (Trim(HostPort.Text)='') then 
begin 
ShowMessage('请设置所要连接的SMTP服务器属性！'); 
HostPort.Text:='25'; 
HostName.SetFocus; 
Exit; 
end; 
//检测地址信息 
if (Trim(EditFrom.Text)='') or (Trim(EditTo.Text)='') then 
begin 
ShowMessage('请输入收信人或者发信人地址！'); 
EditFrom.SetFocus ; 
Exit; 
end; 
//用户账号检验 
if (Trim(EditUser.Text)='') or (Trim(EditPass.Text)='') then 
begin 
ShowMessage('请正确输入用户登录帐号和密码！'); 
EditUser.SetFocus; 
Exit; 
end; 
//设置连接到服务器属性 
with IdSMTP do 
begin 
    Host := Trim(HostName.Text); //SMTP服务器地址 
    Port := StrToInt(Trim(HostPort.Text)); //SMTP服务器端口 
    UserName := Trim(EditUser.Text); //用户账号 
    Password := Trim(EditPass.Text); // 用户密码 
end; 
//IdEncoderMIME1.EncodeString( 
//连接到服务器 
MemoInfo.Lines.Add('第一步：准备连接到服