Me tarda 28 a 32 segundos sin hacer nada en el bucle.
Tarda de 49 a 52 segundos si hago Repaint o ProcessMessages.
Código Delphi
[-]
procedure TFMMain.Button1Click(Sender: TObject);
var i, j : integer;
Comienzo: TDateTime;
begin
Comienzo := Now;
pgbfile.Min := 1;
pgbfile.Max := 100000;
for j := 1 To 5 do
begin
for I := 1 To 100000 do
begin
pgbfile.Position := I;
end;
Application.ProcessMessages;
sleep(1000);
end;
ShowMessage( 'fin ' + DateTimeToStr(Now - Comienzo));
end;