怎样使用IDPOP3控件收取邮件？请给予帮助最好能有一实例？

批量下载QQ邮箱中的所有附件 procedure TFrm_QQMailRev.bt_revClick(Sender: TObject); var i,j,fNum,fCount : integer; tmp, fName : string; begin bt_rev.Enabled := false; IdMessage1.CharSet := &#39;gb2312&#39;; //保证附件正文汉字的正常显示 ProgressBar1.Max := mailcount; ProgressBar1.Min := 1; fCount := 0; for i:=1 to mailcount do //遍历每一封邮件 mailcount begin IdMessage1.Clear; IdPOP31.retrieveHeader(i,IdMessage1); //得到邮件的头信息 IdPOP31.Retrieve(i,IdMessage1); //接收到邮件所有内容 tmp := IdMessage1.Body.Text; //邮件正文 Label2.Caption := {&#39;接收邮件:&#39;+tmp+}&#39; 已接收：[&#39;+intToStr(i)+&#39;] &#39;; fNum := Pred(IdMessage1.MessageParts.Count); if not fNum<0 then for j:=0 to fNum do begin if IdMessage1.MessageParts.Items[j] is TIdAttachment then begin fCount := fCount+1; fName := filePath+intToStr(i)+intToStr(j)+TIdAttachment(IdMessage1.MessageParts.Items[fNum]).Filename; if fileExists(fName) then deletefile(fName); TIdAttachment(IdMessage1.MessageParts.Items[j]).SaveToFile(fName); //filePath+intToStr(i)+GetFileTitle(tmp)+&#39;.rar&#39; end; end; ProgressBar1.StepBy(1); GetRevFile; application.ProcessMessages; end; Label3.Caption := &#39;共接收附件:[&#39;+intToStr(fCount)+&#39;] &#39;; IdPOP31.Disconnect; //断开连接 end;