Progressbar rückwärts?

[a.def]

z.B. so:
du packst eine TGauge auf dein Formular, einen TButton und einen TTimer.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Timer1.Enabled := False;
 Timer1.Interval := 100;
 Gauge1.Kind := gkVerticalBar;
 Gauge1.MaxValue := 100;
 Gauge1.MinValue := 0;
 Gauge1.ShowText := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not Timer1.Enabled then
  Gauge1.Progress := Gauge1.MaxValue;

 Timer1.Enabled := not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Application.ProcessMessages;

 if Gauge1.Progress = Gauge1.MinValue then
  Timer1.Enabled := False
 else
  Gauge1.Progress := Gauge1.Progress - 1;
end;

Edit:
statt TGauge kannst du auch das nehmen was nahpets schreibt. Aber vom Prinzip her (Timer) sollte es gleich sein.