delphi接受邮件的问题

Question

IdPOP31.Host   :=  fmSMTPOption.idpop.Text;
   IdPOP31.UserID   := fmSMTPOption.edtAccount.Text;
   IdPOP31.Password   := fmSMTPOption.edtPassword.Text;
 try
     IdPOP31.Connect;
     MsgCount:= IdPOP31.CheckMessages;
 if MsgCount>0 then
 begin
   StatusBar1.SimpleText:='³É¹¦Á¬½Óµ½'+fmSMTPOption.idpop.Text+'·þÎñÆ÷£¡'+'ÏÖÔÚ¹²ÓÐ'+inttostr(MsgCount)+'·âÓʼþÔÚ·þÎñÆ÷ÖУ¡';
   lbx.Items.Clear;
   er:='';
    for i:=1 to MsgCount do
    begin
       try
            IdPOP31.GetMailMessage(i);
            lbx.Items.add(inttostr(i)+'ÕýÔÚÁ´½Ó'+IdPOP31.GetMailMessage.from);
            if i<MsgCount then
            StatusBar1.SimpleText:='ÕýÔÚµ¼ÈëÓʼþÁÐ±í£¬ÇëÉԵȣ¡ÏÖÔÚÊǵÚ'+inttostr(i)+'·âÓʼþ£¡'
            else
            StatusBar1.SimpleText:='Óʼþµ¼ÈëÍê±Ï£¬ÏÖÔÚ¿ÉÒԲ鿴¾ßÌåÄÚÈÝ£¡';
            pb.Max:=MsgCount;//½ø¶ÈÌõ×ܳ¤ÎªÓʼþ×ÜÊý
            pb.Position:=i;
          except
            if er='' then er:=er+inttostr(i)
            else
              er:=er+','+inttostr(i);
            StatusBar1.SimpleText:='µÚ'+er+'·âÓʼþÏÂÔسö´í£¬Çë¼ì²éÓʼþ·þÎñÆ÷£¡';
           end;
      end;
   end
 else
   StatusBar1.SimpleText:='·þÎñÆ÷ÉÏÄ¿Ç°»¹Ã»ÓÐÈκÎÓʼþ£¡';
 except
   StatusBar1.SimpleText:='Á¬½ÓPOP3·þÎñÆ÷ʧ°Ü£¡';
 end;为什么GetMailMessage这个函数布恩那个使用？？？？？

Answer 1

为什么GetMailMessage这个函数不能使用？？？？？提示没有定义