IdPOP3Server接收查询邮件数的问题(100分)

procedure TfrmMain.IdPOP3Server1STAT(ASender: TIdCommand);
begin
//这部分怎么写？ASender.Thread.Connection.Writeln('+OK 1 750');不行呀
end;
使用client
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
i:=IdPOP31.CheckMessages;
end;
接收后错误：'Login'is not a valid integer value.
察看IdPOP3Server.pas
procedure TIdPOP3Server.CommandRetr(ASender: TIdCommand);
Var
LThread: TIdPOP3ServerThread;
begin
LThread := TIdPOP3ServerThread(ASender.Thread);
If LThread.State = Trans Then
Begin
If Assigned(fCommandRetr) Then
OnRetr(ASender, StrToIntDef(Trim(ASender.Params.Text), -1))
Else
ASender.Thread.Connection.WriteLn('-ERR ' + Format(RSPOP3SVRNotHandled, ['RETR']));
End
Else
ASender.Thread.Connection.WriteLn('-ERR Please login first'); // RS
end;
看不懂，谁给讲讲吧，谢了先

高人是不是都回家过年了，祝大家春节快乐，全家幸福！放假回来可要帮我讲讲这个问题呀……

高手回来了吗，帮帮小弟啦[]

delphi自带 的例子
D:/Borland/Delphi6/Demos/Indy/MailClient

to： hots
多谢指点
to:all
我和IdPOP3Server对话，但是每次确认完用户名和密码后IdPOP31.CheckMessages就'Login'is not a valid integer value的错误，我又单独用Tcp/ip手动一条一条的对，发现确认完用户名和密码后的反馈就是Login in ok……我又连通了其他网站的Maill服务器，发现都不反馈会Login……的信息，郁闷，谁有这方面经验呀。