1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label4.visible:=true;
if Zeit < StrtoTime('00:00:01') then
  Label4.Caption:='Zeit abgelaufen'
  else
    begin
      Zeit:=Zeit - 1 / SecsPerDay;
     Label4.Caption:=TimeToStr(Zeit);
    end;
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label4.visible:=true;
if Zeit < StrtoTime('00:00:01') then
  Label4.Caption:='Zeit abgelaufen'
  Label2.Caption:='Fertig'
  else
    begin
      Zeit:=Zeit - 1 / SecsPerDay;
     Label4.Caption:=TimeToStr(Zeit);
    end;
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label4.visible:=true;
if Zeit < StrtoTime('00:00:01') then
begin
  Label4.Caption:='Zeit abgelaufen'
  Showmessage('ddd')
  end
  else
    begin
      Zeit:=Zeit - 1 / SecsPerDay;
     Label4.Caption:=TimeToStr(Zeit);
    end;
    end;                    

1:
2:
3:
4:
5:
6:

if Zeit < StrtoTime('00:00:01') then
begin  
   Label4.Caption:='Zeit abgelaufen';
   Showmessage('ddd');
end
else                    

1:
2:
3:
4:
5:
6:
7:
8:

if  ComboBox1.ItemIndex=1 then
begin
Button6.visible:=true;
Label2.visible:=true;
Button2.Visible:=false;
Zeit:= StrtoTime('00:00:10');
Timer2.enabled:=true;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

if ComboBox2.ItemIndex=2 then
      begin
Label8.visible:=true;
Button4.Visible:=false;
Zeit:= StrtoTime('00:00:10');
Timer1.enabled:=true;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:

if  ComboBox1.ItemIndex=1 then
begin
Button6.visible:=true;
Label2.visible:=true;
Button2.Visible:=false;
time:= StrtoTime('00:00:10');
Timer2.enabled:=true;
end;                    

1:
2:
3:
4:

var
  Form1: TForm1;
   Zeit:TDateTime;
   time:TDateTime;                    

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

TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 1000;
  Timer2.Interval := 500;
end;

TForm1.Timer1Timer(Sender: TObject);
begin
  a := a + 20;
end;

TForm1.Timer2Timer(Sender: TObject);
begin
   b := b + 20;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 1000;
end;

TForm1.Timer1Timer(Sender: TObject);
begin
  a := a + 20;
  b := b + 40;
end;                    

1:
2:
3:
4:
5:

if sid <StrtoTime('00:60:00') then
    begin

Hier mein sound
end;                    

1:

if sid = strtotime(01:00:00) then sound                    

1:
2:
3:
4:
5:
6:
7:
8:

Procedure Timer
begin
dec(sid)
if sid = strtotime(01:00:00) then sound
...
...

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

private
  canplay: Boolean;
....
....
//im Timer dann
if canplay and (sid <= strtotime(01:00:00)) then
begin
   playsound;
   canplay:= False;
end
....
...