MSG-Text in einem TMemo anzeigen?

[Sharky]

Hai smart,

Du must in einer Schleife die einzelnen Messageparts durchlaufen. Zur Zeit wird die Variable intIndex bei deinem Code ja nicht verwendet Ausserdem hast Du da ein schönes Exit mitten in deinem Code stehen

Code:

procedure TForm1.ListBox1DblClick(Sender: TObject);
Var
  intIndex:Integer;
begin
  If POP.Connected Then POP.Disconnect;
  POP.Connect;
  POP.Retrieve(ListBox1.ItemIndex + 1, IdMessage1);
  Caption := IntToStr(ListBox1.ItemIndex); [b]Exit[/b];
  if IdMessage1.MessageParts.Items[intIndex] is TIdText then // intIndex ist nicht gesetzt.
  begin
    Memo1.Lines.Clear;
    Memo1.Lines.AddStrings(TIdText(IdMessage1.MessageParts.Items[intIndex]).Body);
  end;
  If POP.Connected Then POP.Disconnect;
end;