Mails Inkl Anahng und Infos Speichern Probleme !

[wlfmario]

Hallo ich versuche mit den Indy 9 Kompos Mails zu empfangen und in einem Listview die Infos (Absender, Größe ect.) darzustellen.
So weit kein Problem Leider klappt das mit den Spechern nicht so ganz iwe ich mir das vorstelle !

Ich möchte alle Mails mit oder ohne Anhang bei dem Empfang speichern und wie in OutlookExpress bei dem nächsten Start des Programm's die Mails wieder im Listview einlesen.
Wenn die Mails gelöscht werden, sollen wie Anhänge auch mit gelöscht werden.

Wenn ich die Mails als txt Speichere, sehe ich die Infos (Absender ect.) aber nicht den Text oder ob es einen Anhang gibt oder nicht ! und wo ist der Anhang ?

Hier mal mein DelphiCode:

Delphi-Quellcode:

with HauptForm do
    begin
      POP.Host := POPHost;
      POP.Port := POPPort;
      POP.Username := POPUser;
      POP.Password := POPPwd;
      Application.ProcessMessages;
      POP.Connect;
      MailCount := POP.CheckMessages;
      Mailgroesse := POP.RetrieveMailBoxSize div 1024;
      StatusBar1.Panels.Items[0].Text := 'Anzahl Mails: ' +
        IntToStr(MailCount) + ' Grösse: ' + IntToStr(MailGroesse);
      for intIndex := 1 to MailCount do
      begin
        msg.Clear;
        POP.RetrieveHeader(intIndex, Msg);
        itm := Listview1.Items.Add;
        itm.Caption := Msg.From.Text;
        itm.SubItems.Add(Msg.Subject);
        itm.SubItems.Add(inttostr(ord(Msg.Priority)));
        itm.SubItems.Add('ANHANG');
        itm.SubItems.Add(DateToStr(Msg.Date));
        itm.SubItems.Add(TimeTostr(Msg.Date));
        if itm.SubItems.Add(IntToStr(POP.RetrieveMsgSize(intIndex) div 1024) +
          ' K-Bytes') = 0 then
          itm.SubItems.Add(IntToStr(1) + ' K-Bytes');
        Msg.SaveToFile(ExtractFilePath(Application.ExeName) +
          '/Mail-In/Projekt-Mail' + IntToStr(intIndex) + '.eml');
      end;
      POP.Disconnect;
      ...
      ...

[wlfmario]

Erledigt habe es gefunden.
Danke.