//mail laden
  pop3.Retrieve(mailindex, mailinfo);
  //details eintragen
  fo_browser.edAbsender.Text:=mailinfo.From.Text;
  fo_browser.edDatum.Text:=FormatDateTime('dd mmm yyyy hh:mm:ss', mailinfo.Date);
  fo_browser.edBetreff.Text:=mailinfo.Subject;
  //body eintragen
  for intIndex := 0 to Pred(mailinfo.MessageParts.Count) do begin
    if (mailinfo.MessageParts.Items[intIndex] is TIdAttachment) then begin
      fo_browser.mailtext.Lines.Add(TIdAttachment(mailinfo.MessageParts.Items[intIndex]).Filename);
    end
    else begin
      if mailinfo.MessageParts.Items[intIndex] is TIdText then begin
        fo_browser.mailtext.Lines.AddStrings(TIdText(mailinfo.MessageParts.Items[intIndex]).Body);
      end
    end;
  end;