Ayuda para un principiante

[aragorneuf]

Alguien sabe como:
¿cómo puedo hacer que un ProgressBar suba y baje entre 0 y 100 de 1 en 1 mostrando cada número en una label?

Aqui dejo mi codigo que empleé, el problema que tiene es que se sube al 100 inmediatamente y no de uno en uno y el label solo aparece con el Max y el Min. ( osea que solo cambia dos veces de 100 a 0 y no gradualmente ).

procedure TF_O.B_1Click(Sender: TObject);
var
i: Integer;
begin
with PB_1 do
begin
PB_1.StepBy(1);
Showmessage('');
for i := Min to Max do
L_1.caption := inttostr(i);
Position := i;
showmessage('Va de regreso');
for i := Max downto Min do
L_1.caption := inttostr(i);
Position := i;
end;
end;
end.