Descargar un email con IMAP4

[fide]

Aqui los datos de mi problema...

cliente es un TidIMAP4
mail es un TidMessage

Aqui esta el codigo que uso para descargar el mensaje desde el servidor...

¿Que es lo que esta mal, o por que me da ese error?

Código Delphi [-]
cliente.Host := 'miServidorIMAP';
  cliente.Port := 143;

  cliente.Username := 'fide';
  cliente.Password := 'miPassword'

  cliente.Connect;

    cliente.SelectMailBox('INBOX');
    cliente.Retrieve( 3, mail);  //Esta es la linea que me da error o que no trabaja correctamente...

    boxSubject.Text := mail.Subject;
    boxFrom.Text := mail.From.Address;

   for X := 0 to Pred(mail.MessageParts.Count) do
     if (mail.MessageParts.Items[X] is TIdText) then
        begin
          boxBody.Lines.Clear;
          boxBody.Lines.AddStrings(TidText(mail.MessageParts.Items[X]).Body);
        end;

Por favor necesito ayuda con esto.