1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button2Click(Sender: TObject);
begin
   pop.Connect;
   pop.Retrieve(2,IdMessage1);//ListView1.Selected.Index+1,
   IdMessage1);
   Edit5.Text := IdMessage1.From.Name;
   Edit7.Text := IdMessage1.From.Address;
   Edit6.Text := IdMessage1.Subject;
   Memo1.Text := IdMessage1.Body.Text;
   pop.Disconnect;
   IdMessage1.Clear;
end;					

1:

Memo1.Lines.Text := IdMessage1.Body.Text;					

1:
2:
3:
4:
5:

FOR i := 0 TO Msg.MessageParts.Count -1 DO BEGIN
      IF Msg.MessageParts.Items[i] IS TIdText THEN BEGIN  // Wenn Body Text entdeckt wurde
        TRY
          Memo1.Items.Assign(TIdText(Msg.MessageParts.Items[i]).Body);
        [...]