高手进来看看!谢谢!!

我因为毕业设计需要,用DELPHI做了一个邮件接收系统,系统成功后应该是将所收取的邮件显示在邮件列表中,然后双击列表中内容就可以显示邮件全文.但是我现在连接服务器与获取邮件都没问题了,就是双击后不能显示邮件全文.我用的代码是这段：
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  nmpop31.GetMailMessage( listbox1.ItemIndex+1);
  Memo1.Text := NMPOP31.MailMessage.Body.Text;
  Edit3.Text := NMPOP31.MailMessage.Subject;
  Edit2.Text := NMPOP31.MailMessage.From;
  Edit5.text:=nmpop31.AttachFilePath;
end;
运行都没有错的，不知道怎么回事，请高手指导我一下！我用的是DELPHI6，谢谢了！