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

procedure TForm1.freezeTimer(Sender: TObject);
begin  
if ft > 0 then
  begin
    dec(ft);//verringert den Wert von FT um 1 (DECRASE)
  end
ELSE
  begin
    zeit.Enabled:=true;    //PUNKT 1 <----
    freeze.Enabled:=false;
  end;
zeits.Caption:=inttostr(ft);
end;					

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

procedure TForm1.zeitTimer(Sender: TObject; LagCount: Integer);
begin  //hier ist PUNKT 2 <----
if tlsec > 0 then
  begin
    dec(tlsec);
    zeitm.caption:=inttostr(tlmin);
    zeits.caption:=inttostr(tlsec);
  end
Else
  begin
    If tlmin > 0 then
      begin
        dec(tlmin);
        tlsec:=tlsec+59;
        zeitm.caption:=inttostr(tlmin);
        zeits.caption:=inttostr(tlsec);
      end
    ELSE
      begin
        loose.Click;
        zeit.Enabled:=false;
      end;
  end;
end;