1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

// Der Start des Countdowns - musst du noch an dein Programm anpassen 
procedure TForm1.StartButtonClick(Sender: TObject);
begin
  // Startzeit merken
  StartTime := GetTickCount;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Diff, CountDown: Cardinal;
begin
  // Differenz zwischen aktueller und gemerkter Zeit berechnen
  Diff := GetTickCount - StartTime;

  // Zeit von 60 (dem Startwert) abziehen)
  CountDown := 60 - Diff;

  // Countdown im Label anzeigen
  Label1.Caption := IntToStr(CountDown);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

type
  TFormBla = class(TForm)
  ...
  private
    { Private-Deklarationen }
    FCounter: Integer;
  ...
end;

procedure TFormBla.FormCreate(Sender: TObject);
begin
  FCounter := 60;
end;

procedure TFormBla.Timer1Timer(Sender: TObject);
begin
  Dec(FCounter);
  Label1.Caption := IntToStr(FCounter);
  Timer1.Enabled := FCounter > 0;
end;