Progressbar beim auspacken

[floppybe]

Hallo DP gemeinde,

Ich habe etwas Recheche betrieben zu dem Thema Progressbar, bin aber dazu leider nicht ganz schlauer geworden.
deshalb erlaube ich mir, mich bei Euch nochmals etwas zu erkundigen.

Mein Code:

Delphi-Quellcode:

   var i : Integer;
begin
  ProgressBar1.Min:=0;
  ProgressBar1.Max:=100;
  for i:=0 to 100 do
    begin
      ProgressBar1.Position:=i;

end;

Das habe ich verstanden, da wird dei Progressbar hochgezählt.
Aber wo schreibe ich nun meinen Code rein, zum auspacken der Grafiken welche ich in einem ZIP habe ?

Mein Code:

Delphi-Quellcode:

zipforge1.BaseDir := ExtractFilePath(ParamStr(0)) + 'img';

zipforge1.FileName := ExtractFilePath(ParamStr(0)) + 'img/csimg.csc';

zipforge1.OpenArchive;
zipforge1.ExtractFiles('*.*');
zipforge1.CloseArchive;

analog dann zum wieder packen und löschen der vorhandenen Image Files beim beenden.

Delphi-Quellcode:

zipforge1.BaseDir := ExtractFilePath(ParamStr(0)) + 'img';
zipforge1.CompressionLevel := clMax;
zipforge1.FileName := ExtractFilePath(ParamStr(0)) + 'img/csimg.csc';

zipforge1.OpenArchive;
zipforge1.AddFiles('*.png');
zipforge1.AddFiles('*.bmp');
zipforge1.AddFiles('*.jpg');
zipforge1.AddFiles('*.gif');

zipforge1.CloseArchive;

DeleteFile(ExtractFilePath(ParamStr(0)) + 'img/about.bmp');
DeleteFile(ExtractFilePath(ParamStr(0)) + 'img/bookadd.bmp');
DeleteFile(ExtractFilePath(ParamStr(0)) + 'img/bookdelete.bmp');
DeleteFile(ExtractFilePath(ParamStr(0)) + 'img/bookedit.bmp');

Vielen Dank für das aufzeigen wie das geht mit der Progress Bar, mir ist es leider nicht so klar.