indy smtp progressbar

[Mackhack]

Hallo,

sofern ich es richtig verstanden habe, ich habe es vor Jahren mal so gemacht!

Delphi-Quellcode:

procedure TForm1.RetrievePOPHeaders(inMsgCount: Integer);
var
  stTemp: string;
  IntIndex: integer;
  Itm: TListItem;
begin
  stTemp := Statusbar1.Panels[0].Text;
  lvHeaders.Items.Clear;
  For IntIndex := 1 To inMsgCount Do
  Begin
    // Clear the message properties
    ShowStatus(Format('Messsage %d of %d', [IntIndex, inMsgCount]));
    Application.ProcessMessages;
    //Msg.Clear;
    POP.RetrieveHeader(IntIndex, Msg);
    // Add info to ListView
    Itm := lvHeaders.Items.Add;
    Itm.ImageIndex := 0;
    Itm.Caption := Msg.Subject;
    //If IntIndex
//    itm.SubItems.Add
    Itm.SubItems.Add(Msg.From.Text);
    itm.SubItems.Add(DateToStr(Msg.Date));
    Itm.SubItems.Add(IntToStr(POP.RetrieveMsgSize(IntIndex)));
    Itm.SubItems.Add('n/a');
    // Itm.SubItems.Add(POP.RetrieveUIDL(IntIndex));
  End;
   ShowStatus(stTemp);
end;