Mut zu Lücke ! Bitte um Erklerung Attachment Indy 9

[wlfmario]

Tja so etwas habe ich mir schon gedacht ! Aber leider klappt das bei mir nicht !

Delphi-Quellcode:

procedure THauptForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  i, AttachCount: integer;
  Attach: String;
  MailPfadDaten: TMailPfadDaten;
begin
AttachCount := 0;
i := 0;
  with ListView1 do
  begin
    for I := 0 to Items.Count - 1 do
      if Items[I].Selected then
      begin
        MailPfadDaten := TMailPfadDaten(Items[I].data);
        Msg.LoadFromFile(ExtractFilePath(Application.ExeName) +
          '/Mail-In/' + MailPfadDaten.Mailpfad, false);
        for AttachCount := 0 to Msg.MessageParts.Count -1 do
        begin
        if Msg.MessageParts.Items[i] is TIDAttachment then
        Attach := (Msg.MessageParts.Items[AttachCount] as TIDAttachment).FileName;

        if Msg.MessageParts.Items[i] is TIDText then
        begin
        RichEdit1.Text := (Msg.MessageParts.Items[AttachCount] as TIDText).Body.Text;
        end;
        end;
        //RichEdit1.Text := Msg.Body.Text;
      end;
  end;
end;

Es wird kein Text angezeigt. Bei dem RichEdit1.Text := Msg.Body.Text; wird zumindest bei der Mail ohne Anhang der Text angezeigt.