Ayuda con este proyecto!!!

[FideRosado]

en el componente idpop3 se encuentra esta funccion

Código Delphi [-]
function TIdPOP3.CheckMessages: longint;
var
  s: string;
begin
  Result := 0;
  SendCmd('STAT', wsOk);    {Do not Localize}
  // Only gets here if exception is not raised
  s := LastCmdResult.Text[0];
  if Length(s) > 0 then begin
    Result := StrToInt(Copy(s, 1, IndyPos(' ', s) - 1));    {Do not Localize}
  end;
end;

pero que sucede pues que le envio este parametro en esta forma y sus posibles variantes y devuelve error

Código Delphi [-]
procedure TForm1.IdPOP3Server1STAT(ASender: TIdCommand);
begin
  ASender.Reply.SetReply( OK , IntToStr(40)+'  '+IntToStr(40) );// esta es una
  ASender.Reply.SetReply( 1 , IntToStr(40)+'  '+IntToStr(40) );// esta es la otra
end;

como veran, no me sale.. si keda con el OK me da error en el OK..
ahy alguien aca que sepa como es..