Hilfe fehler bei imap und Indy

[saschab]

Hallo zusammen,
habe folgendes Problem mit den Indy Kompos (TIDIMAP4).

Ich kann eine Verbindung zu meinem IMAP server aufbauen, kann auch die Mailbox listen, aber wenn ich ein RetriveallHeaders mache kann ich danach nicht auf die TIdMessageCollection zugreifen dann semmelt sich mein programm mit nem Fehler weg.

Delphi-Quellcode:

var   messi             : TIdMessageCollection;
      mailboxlist : TStringList;
begin
    mailboxlist := TStringList.Create;
    imap.MailBoxSeparator := '.';
    imap.ListMailBoxes(mailboxlist);
    memo1.Lines.AddStrings(mailboxlist);
    imap.SelectMailBox('INBOX');
    imap.RetrieveAllHeaders(messi);
    // Hier semmelt er sich weg.
    IdMessage1 := messi.Messages[1];
end;

Fehlermeldung siehe Anhang:

vielleicht kann mir ja jemand helfen.