有谁用coolmail做过收邮件的程序，请帮我检查一下我的代码？(100分)

我在做一个收邮件的程序，用了coolmail控件，但现在有一个问题，我可以收到邮件的原始
信息，但无法取出邮件的内容，收件人、发件日期、发件人、主题等都可以取出，但偏偏信
的详细内容无法取出。我的收取信件的过程是这样的：
procedure TForm1.SpeedButton2Click(Sender: TObject);
var i:integer;
s:String;
begin
m_pop3.MailBoxInfo;
ShowMessage(Inttostr(m_Pop3.MailCount) + ' ' + IntToStr(m_POp3.AllMailsSize));
for i:=1 to m_Pop3.MailCount do
begin
m_Pop3.ReceiveMail(i,s);
Memo2.Lines.Add(s);
m_Mail.LoadMail;
m_Mail.UseBuffer:=True;
m_Mail.LoadFromBuffer(s);
Memo2.Lines.add(datetimetostr(m_Mail.Date));//取出邮件的日期
Memo2.Lines.add(m_Mail.MailBody.text);//取出邮件的内容，但m_Mail.MailBody.text的内容却为空？
end;
end;

如果有正确例子，请给我一份，谢谢！我的邮箱为gxmayi@163.net

刚才看了一下源码，
if FContentType <> mctTextPlain then //你把这两行注释掉一般就没什么问题了。
Exit;

不会是一个没有body的只有html附件的邮件吧，那你得看它的FAttFiles

接受答案了.