Mails Nuevos con TidIMAP4

[santiago14]

Empezado por fide

Ya he logrado mostrar solo la cantidad de correos sin leer que hay en el MailBox con el idIMAP4.

Aqui les va el codigo..

al idIMAP1 lo he renombrado a cliente, y he insertado un idMailBox y lo he renombrado a MailBox1.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin    cliente.Host := 'correo.ipigto.rimed.cu';
  cliente.Port := 143;

  cliente.Username := 'NombreDeUsuario';
  cliente.Password := 'contraseña';
  cliente.Connect;

  cliente.StatusMailBox('INBOX', MailBox1, [mdUnseen]);
  Caption := 'Usted tiene ' +  IntToStr(MailBox1.UnseenMsgs) + ' mensajes nuevos en la bandeja de entrada';

end;

Lo que sucede es que si no llamamos la instruccion StatusMailBox con el ultimo parametro igual a mdUnseen pues entonces la otra instruccion de abajo nos devuelve 0 en la cantidad de correos sin leer...

Hola, estoy tratando de hacer lo mismo pero con el componente de Indy, idPOP3. ¿Cómo puedo hacerlo?