Indy odbieranie poczty z paskiem postepu

Witam w jaki sposob odbierac zalaczniki z paskiem postepu (np.progressbar)?
Znalazlem cos takiego ale nie potrafie tego przerobic

 if IdPOP31.Connected then
  begin
    //sprawdzenie ilości wiadomości na serwerze
    il_wiad := IdPOP31.CheckMessages;
    statusbar1.SimpleText :='Lista zawiera '+inttostr(il_wiad)+' elementow';

    while il_wiad > 0 do
    begin
      //czyszczenie komponentu IdMessage
      IdMessage1.Clear;
      //odbiór wiadomości z serwera, wypełnienie komponentu IdMessage
      IdPOP31.Retrieve(il_wiad, IdMessage1);
      //sprawdzenie ilości załączników w wiadomości
      il_zal := IdMessage1.MessageParts.Count - 1;
      
     Showmessage('Odbieranie wiadomości: ' + inttostr(il_wiad) + ' Od: ' + IdMessage1.From.Text + ' Temat: ' + IdMessage1.Subject + ' Załączników: ' + inttostr(il_zal));
      while il_zal > 0 do
      begin
        if (IdMessage1.MessageParts.Items[il_zal] is TIdAttachment) then
        begin
        zal_nazwa := TIdAttachment(IdMessage1.MessageParts.Items[il_zal]).Filename;      TIdAttachment(IdMessage1.MessageParts.Items[il_zal]).SaveToFile(ExtractFilePath(ParamStr(0)) + zal_nazwa);
        end;
        il_zal := il_zal - 1;
      end;
      //kasowanie wiadomości na serwerze
    //  IdPOP31.Delete(il_wiad);
      il_wiad := il_wiad - 1;
    end;
  end;

Prosze o pomoc i z gory thx

Progressbar.Max := IloscWiadomosci

Po odebraniu wiadomosci dajesz po prostu Progressbar.Position := inc(Pozycja);

I drugi pasek np pobierasz wielkość maila i ile bajtow pobrales tak przesowasz postep jest wiele rozwiazan poszukaj na google ;) sam kiedys szukalem