Ejecución bloqueada. Hilos de ejecución

[muli]

Nada amigo, elimino la variable avance y en su lugar pongo, pero la barra de progreso ni siquiera se mueve, incluso pasa una cosa curiosa en tiempo de diseño le tengo valor 80 para ver el color de la barra y no se lo quite, cuando inicio el procedimiento puedes ver que le paso el valor 0, y ni nada, no hace caso.

Código Delphi [-]
  Progreso.Value:=Progreso.Value+1;
  if Progreso.Value>100 then
  Begin
    Progreso.Value:=0;
  End;