MSG-Text in einem TMemo anzeigen?

[smart]

Nein, jetzt haben wir uns falsch verstanden. Ich meinte nicht die Fehler sondern EMailtext. Ich habe mich da dumm ausgedrückt.

Delphi-Quellcode:

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); Exit;
if IdMessage1.MessageParts.Items[intIndex] is TIdText then
begin
   Memo1.Lines.Clear;
   Memo1.Lines.AddStrings(TIdText(IdMessage1.MessageParts.Items[intIndex]).Body);
end;
If POP.Connected Then POP.Disconnect;
end;