ProgressBar mit einer verzögerten Abnahme des Wertes, nur wie?

[Delphi.Narium]

Mal schmutzig hingeschrieben:

Delphi-Quellcode:

if NeuePosition < ProgressBar.Position then begin
  for i := ProgressBar.Position DownTo ProgressBar.Position do begin
    ProgressBar.Position := i;
    Sleep(100);
  end;
end else begin
  ProgressBar.Position := NeuePosition;
end;