FENÊTRE AVEC JAUGE AFFICHANT LA DURÉE RESTANTE DU TRAITEMENT

exemple d'utilisation:
//--------------------------------------------------------------
procedure TDalProgressCountDown.Panel3DblClick(Sender: TObject);
//--------------------------------------------------------------
var
  i: integer;
begin
  i := 0;
  Init( 'Compteur de boucle', 0, MaxInt, True );
  while i < MaxInt do
  begin
    Step( i, 'Compteur : '+inttostr(i) );
    inc(i);
    if Stopped then
      i := MaxInt;
  end;
  Close;
end;