Problem mit Retrieveheader

[DerSkw]

Also, ich hab hier mal einen Code, der meine mails abholt und die anlagen mit ner id speichert, aber wenn mehr als eine mail auf dem konto ist bekomme ich eine "Zugriffs Verletzung" Meldung.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var PartIndex,i : Integer; 
         id_buf : String;
begin
randomize;
 IdPop31.Host:='pop.onlinehome.de';
 IdPop31.Username:='Username';
 IdPop31.Password:='Passwort';
 IdPop31.Connect();

for i:=1 to idpop31.CheckMessages do
begin
 IdPop31.Retrieveheader(i,IdMessage1);
  for PartIndex:=0 to IDMessage1.MessageParts.Count-1 do
   begin
    if(IdMessage1.MessageParts.Items[Partindex] is TIdAttachment) then
     Begin
      id_buf:=((copy(TimeToStr(now),1,2)+copy(TimeToStr(now),4,2)+copy(TimeToStr(now),7,2))+IntToStr(random(10))+IntToStr(random(10)));
      if fileexists(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf') then
       deletefile(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf');
      TIdAttachment(IdMessage1.MessageParts.Items[Partindex]).SaveToFile(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf');
     end;
   end;
 idmessage1.Free;
 idpop31.Delete(i);
end;
 IdPop31.Disconnect;
 showmessage('done');
end;

Schonmal Danke für die Hilfe!

mfg DerSkw