Estou tentando incrementar um `progressbar` dentro da minha estrutura de repetição, porém o `progressbar` sempre trava a aplicação. Vou demonstrar aqui, segue o código:

<!-- language: lang-delphi -->

    ProgressBar1.Position:=0;
    While ... do
    begin
    
    //codigo aqui
    
    ProgressBar1.Position:= ProgressBar1.Position+1;
       Sleep(500);
    end;

Como posso resolver isso?