使用indy传送邮件的问题？急

[shengyuan5278]

使用控件idsmtp,idmessage传送邮件(没有付件)，代吗如下：
var
i:integer;
begin
IdSMTP.Host :='smtp.sina.com';
IdSMTP.UserId :='userid';
IdSMTP.Password :='psw';
IdSMTP.Port:=25;
IdSMTP.Connect ;
IdMessage1.Clear ;

with IdMessage1 do
begin
Body.Assign(emaildetailmemo.lines);
ReplyTo.EMailAddresses :=trim(email.Text);
Recipients.EMailAddresses :=trim(toemail.text);
Subject :=trim(subjectedit.Text);
Priority :=mpHighest;
ReceiptRecipient.Text :='';
end;
try
idSMTP.Send(IdMessage1);
except
showmessage('邮件传送失败!');
end;
showmessage('邮件传送成功!');
idSMTP.Disconnect ;
第一次点击‘发送’会成功，但接收方并没有收到邮件，连点几次‘发送’，就会提示错误，错误发生在 IdSMTP.Connect;上，不知何病，望指点一二。

[outer2000]

with IdMsgSend do
begin
Body.Assign(Memo1.Lines);
From.Text := UserEmail;
Recipients.EMailAddresses := edtTo.Text; { To: header }
Subject := edtSubject.Text; { Subject: header }
Priority := TIdMessagePriority(cboPriority.ItemIndex); { Message Priority }
CCList.EMailAddresses := edtCC.Text; {CC}
BccList.EMailAddresses := edtBCC.Text; {BBC}

[outer2000]

看MAILCLIENT的DEMO吧

[shengyuan5278]

MAILCLIENT的DEMO在哪里啊，我没找到啊，