Mails Nuevos con TidIMAP4

[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...