1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

//Berechnet Sekunden und Minuten und Stunden --> Timer Interval 1000
procedure Ttoken_start_bsp.transform(sec: integer);
var
  minute: integer;
  sekunde: integer;
  stunde: integer;
begin

  stunde := floor(sec/3600);
  if ((sec mod 3600) = 0) then
  begin
    edit5.text := inttostr(stunde);
    edit6.text := '0';
    edit7.text := '0';
  end
  else
  begin
    minute := floor((sec - (stunde*3600))/60);
    if (((sec - (stunde*3600)) mod 60) = 0 ) then
    begin
      edit6.text := inttostr(minute);
      edit7.text := '0';
    end
    else
    begin
      sekunde := (sec - (stunde*3600)) mod 60;
      edit5.text := inttostr(stunde);
      edit6.text := inttostr(minute);
      edit7.text := inttostr(ceil(sekunde));
    end;
  end;

end; 

//Timer Interval 1000 - Berechnung der Sekunden dieser Timer hängt für 1-2 Sekunden während der Timer mit 100 weiterzählt
procedure Ttoken_start_bsp.Timer1Timer(Sender: TObject);
begin
   transform(strtoint(edit8.text) div 1000);
end;

//Timer Interval 100
procedure Ttoken_start_bsp.Timer2Timer(Sender: TObject);
begin
  // Edit8 hat den Startwert 0 
   edit8.text := inttostr(strtoint(edit8.text)+100);
end;