TProgressBar va retrasado

[[duilioisola]]

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;
      // 52 segundos : pgbfile.Repaint;
      // 49 segundos : Application.ProcessMessages;
      // 28 segundos : Sin instrucciones aqui
    end;
    Application.ProcessMessages;
    sleep(1000);
  end;
  ShowMessage( 'fin ' + DateTimeToStr(Now - Comienzo));
end;