Help!!! [ ProgressBar + Tabele ]

Mam cos takego
for j:=0 to ListBox1.Items.Count -1 do
begin
label4.Caption:=ListBox1.items[j];
Pack(TTable(ListBox1.Items.Objects[j]));
for i:=0 to j do
begin
Application.ProcessMessages;
Gauge.Progress :=i;
end;

progres dochodzi do ilosci tabel , moglby mi kos powiedziec jak zrobic aby
progres wskazywal postep kazdej tabeli lub wszystkich tabel.

speed

Gauge.MaxValue:=ListBox1.Items.Count-1;

For J:=0 To ListBox1.Items.Count-1 Do
Begin
Label4.Caption:=ListBox1.Items[J];
Pack(TTable(ListBox1.Items.Objects[J]));
Application.ProcessMessages;
Gauge.Progress:=J;
End;
--Szymek

Prawo Bolingsa - jeżeli czujesz się świetnie, nie martw się, to minie.

Serdeczne dzieki !