probleme beim abholen von emails

[Harry M.]

hallo leutz

habe probleme beim abholen von emails

dazu habe ich folgenden code aus dem indy demo (aber nicht ganz vollstanändig übernommemm) weil ich nicht alle labels usw habe. wenn ich das prog starte werden alle neuen email in einer listview ausgegeben, wenn ich aber dann mit doppelklick auf eine mail zugreifen will, kommt in der taskleiste das email-icon mit der lupe, aber im meinem memo steht kein text. weiß jemand woran das liegt??http://www.smiliearchiv.com/smilies/...omputer_23.gif

Delphi-Quellcode:

procedure TForm1.ListView1DblClick(Sender: TObject);
var
   stTemp: string;
   intIndex: Integer;
   li: TListItem;
begin
    //RetrieveExecute(Sender);
   stTemp := Statusbar1.Panels[1].text;
   if ListView1.Selected = nil then
      begin
         Exit;
      end;
   //initialise
   IdMessage1.Clear;
   Memo1.Clear;
   ListView2.Items.Clear;

   IdPOP3.Retrieve(ListView1.Selected.Index+1, IdMessage1);


  for intIndex := 0 to Pred(IdMessage1.MessageParts.Count) do begin
         if (IdMessage1.MessageParts.Items[intIndex] is TIdAttachment) then begin //general attachment
               //pnlAttachments.visible := true;
               li := Listview2.Items.Add;
               li.ImageIndex := 8;
               li.Caption := TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).Filename;
               li.SubItems.Add(TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).ContentType);
            end
         else begin //body text
               if IdMessage1.MessageParts.Items[intIndex-1] is TIdText then
                  begin
                     Memo1.Lines.Clear;
                     Memo1.Lines.AddStrings(TIdText(IdMessage1.MessageParts.Items[intIndex]).Body);
                  end
            end;
      end;
end;

gruß delphicus