Mostrar progresso de abertura de tabela em ProgressBar

Olá amigos:

Gostaria de abrir um tabela e mostrar o progresso em um objeto progressbar.
Usei o código abaixo, dentro de um botão, funcionou. Mas tenho que colocar em um evento de um formulário mas não sei qual. Alguém pode me dar um ajuda?

procedure TForm1.Button1Click(Sender: TObject);
begin
cont:=0;
datamodule2.table1.open;
reg:=datamodule2.table1.RecordCount;
edit1.text:=inttostr(reg);
progressbar1.Max:= reg;
while cont < progressbar1.Max do
begin
progressbar1.position:= progressbar1.position + 1;
cont:=cont+1;
end;
end;