为什么GETMAILMESSAGE老是报异常(100分)

procedure TForm1.Button1Click(Sender: TObject);
begin
NMPOP31.Host := '263.net';
NMPOP31.UserID := .......;
NMPOP31.Password := .......;
NMPOP31.Connect;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
S: String;
M: Integer;
begin
if NMPOP31.MailCount > 0 then
begin
if InputQuery('Retrieve an E-Mail message', 'Which message? (1-'+IntToStr(NMPOP31.MailCount)+')', S) then
begin
M := StrToIntDef(S, -1);
If (M < 0) or (M > NMPOP31.MailCount) then
ShowMessage('Invalid message index')
else
NMPOP31.Getmailmessage(M);
end;
end
else
ShowMessage('No Messages to Get');
end;



为什么到GetMailMessage是老是出现异常呢？

If (M < 0) or (M > NMPOP31.MailCount) then
应该是：
If (M < 0) or (M >= NMPOP31.MailCount) then
吧。

可是我用M为中间的一个值，根本不会出现条件上的错误，为什么还出现
异常呢？看来只有用SOCKET从底层开发了。

你可以不指定附件路径,大部分附件还是能收的.....
如果是网战寄给你的html格式信件,是会出现异常的

问一个问题，你的机子能收邮件嘛？

可以!不过收附件也经常出问题....要的话你可以看一下我的程序.
你要是从开发出来给我说声..

我用tnmpop3的时候也特别奇怪， 我在程序里面直接声明
pop3 : tnmpop3;

然后
pop3 := tnmpop3.create(nil);

可是当我用 pop3.getmessage(id) 时总是报错， 用 pop3.getsummary(id)却很正常，
而如果把component放在form上面却一切正常， 请问各位有什么方法解决？

请继续、进期结束

接受答案了.