Mail abholen und vom server löschen

[Christian18]

Hallo,

ich versuche gerade ein kleines E-Mail Programm zu schreiben. Wie kann ich, wenn ich eine Mail ahhole diese vom Server löschen. Ich schicke mal den Quellcode mit den ich schon habe.

Delphi-Quellcode:

procedure TFMain.Abrufen1Click(Sender: TObject);
 var ini : TINIFile;  // INI - datei
     i   : Integer;   // Schleifenvariable
     j   : Integer;   // Schleifenvariable
     a   : Integer;   // Anzahjl der Mails
begin
  // INI - Objekt erzeugen
  ini:=TIniFile.Create('.\conf.ini');

  POP.UserId:=ini.ReadString('Account', 'Account', '');
  POP.Password:=ini.ReadString('Account', 'Passwort', '');
  POP.Host:=ini.ReadString('Account', 'POP', '');

  // Verbindung herstellen
  POP.Connect;

  // Anzahl der Mails ermitteln
  a:=POP.CheckMessages;

  // Mails holen
  for i:=1 to a do
    begin
      MSG.Clear;
      POP.RetrieveHeader(i, MSG);
      TPosteingang.Append;
      TPosteingang.FieldByName('Von').AsString:=MSG.From.Text;
      TPosteingang.FieldByName('Datum').AsDateTime:=MSG.Date;
      TPosteingang.FieldByName('An').AsString:=MSG.Recipients.EMailAddresses;
      TPosteingang.FieldByName('Betreff').AsString:=MSG.Subject;
      TPosteingang.Post;
    end;

  // Verbindung trennen
  POP.Disconnect;
end;

Ja was gibt es jetzt noch zu sageen???

POP ist die IdPop3 Komponente und MSG ist die IdMessage Komponnente. ich denke jetzt ist alles klar