Progressbar in einer Schleife erzeugen??

[Helmi]

Hallo,

ich hab mal wieder eine Frage:

ich hab eine for-Schleife in der ich bei jedem Durchlauf eine Progressbar erzeuge, beschreibe und danach wieder abschiesse.

Code:

Code:

//hier oben ist eine for-Schleife


            //Progressbar in der jeweiligen Zeile in der Spalte fünf erzeugen
            Progressbar_Rect := Items[i].DisplayRect(drBounds);

            with Progressbar_Rect do
              begin
                Left    := Left + Columns[0].Width + Columns[1].Width +
                                  Columns[2].Width + Columns[3].Width;

                Right   := Left + Columns[4].Width - 1;
                Bottom  := Bottom - 1;
              end;

            //Progressbar erzeugen
            PB_Status := TProgressBar.Create(Self);

            with PB_Status do
              begin
                Parent      := Listview_Dateien;
                BoundsRect  := Progressbar_Rect;
                Position    := 0;
              end;

            Items[i].Data := PB_Status;

            try
              //
              Application.ProcessMessages;

              //Datei kopieren
              CopyFileWithProgressBar(QuellDatei, SpeicherDatei, PB_Status, true);

              //Code 1
              Info_Code := 1;

              //kurze Wartezeit
              sleep(1000);
            finally
              //Progressbar freigeben und löschen
              FreeAndNil(PB_Status);
            end;

Jetzt meine Frage: Was ist besser - eine Progressbar im OnCreate erzeugen und dann bei jedem Schleifendurchgang neu anzeigen undbeschreiben lassen oder bei jedem Schleifendurchgang neu erzeugen und zum Schluss wieder abschiessen?

mfg
Helmi