Delphi 8.0 , Indy und POP.retrieve PROBLEM

[Samashy]

Ich habe folgendes Problem... ich möchte gern im Delphi 8.0 NET ein kleines Programm schreiben, welches EMails abholt und den Anhang in ein bestimmtes Verzeichnis packt und die EMails vom Server entfernt.

Delphi-Quellcode:

procedure Thauptform.Button1Click(Sender: TObject);
var i,a,x:integer;
nachricht:TIdMessage;
begin
 TRY
   screen.Cursor:=crHourglass;
   nachricht:=TIdMessage.Create(nil);
   POPi.Host := 'xxxxxxxxxxxxx';
   POPi.Username := 'xxxxxxxxxxxxxxxxxx';
   POPi.Password := 'xxxxxxxxxxxx';
   try
        POPi.Connect;
        x:=POPi.CheckMessages;
        for i := 1 to x do begin        
          POPi.Retrieve(i, Nachricht);
          for a:= 0 to Nachricht.MessageParts.Count do
          begin
              IF (Nachricht.MessageParts.Items[a] is TIdAttachment) then
               TIdAttachment(Nachricht.MessageParts.Items[a]).SaveToFile
               (TIdAttachment(Nachricht.MessageParts.Items[a]).filename);
          end;
          Nachricht.Clear;
        end;
   finally
        POPi.Disconnect;
        nachricht.free;
   end;
   screen.Cursor:=crDefault;
 except
       on E: Exception do begin
        screen.Cursor:=crDefault;
        showmessage(E.Message)
       end
 end

Die Fehlermeldung ist im Anhang... Was mache ich denn falsch?

Romy