Refresh do Form

Prezados...

Tenho uma função do tipo
while not eof do begin
.
..
...
....

label1.caption := variável

....
...
..
.
end;

a iteração neste loop é muito grande, assim o caption só é atualizado ao final da execução do loop.

como eu faço para atualizá-lo a cada rodada do loop?

ah... o form tb mostra uma mensagem de (não respondendo) em seu caption, apesar do programa estar funcionando.

Obrigado a todos.