TProgressBar va retrasado

[atani123]

Tengo un problema de visualizacion y no encuentro como solucionarlo. A ver si alguien sabe como hacerlo.

Supongamos esta parte de codigo (pgbfile es un TProgressBar)

Código Delphi [-]
var i, j : integer;
begin
  pgbfile.Min := 1;
  pgbfile.Max := 100000;
  for j := 1 To 5 do
  begin
    for I := 1 To 100000 do
    begin
      pgbfile.Position := I;
    end;
    sleep(1000);
    application.ProcessMessages;
  end;
  showmessage( 'fin');
end;

Vale pues el progressbar no sigue el ritmo, las cuatro primeras veces la barra solo llega hasta el 10% y vuelve a comenzar, y la ultima vez, sale el mensaje de "fin" y el progressbar aun va por el 70%.

Supongo que el tema es que el ProgressBar lleva un Thread independiente, pero es posible evitar esto y sincronizarlo exacto. Antes con Delphi 7 esto era clavado pero ahora con XE tengo este problema. Solo es estetico, pero queda muy feo que un proceso finalice cuando en pantalla la barra va por el 80%.


gracias a todos de nuevo.