Timer löst nicht regelmäßig aus

[TheTommynator]

Hallo,

das ist mein 1. Beitrag in diesem Forum

Nun zu meiner Frage:

Ich möchte eine Art Doppeltimer realisieren.
D.h. das Programm soll 2 Zeiten entgegennehmen und soll dann einen Timer starten, der bis zur 1. Zeit zählt. Sobald diese erreicht ist, soll ein Sound ausgegeben und der 2. Timer gestartet werden. Ist dieser fertig, so soll ebenfalls ein Sound ausgegeben werden und wieder Timer 1 gestartet werden.

Bisher bin ich erstmal daran überhaupt einen Timer zu programmieren, der Zehntelsekunden, Sekunden und Minuten zählt.
Dazu verwende ich einen Timer mit 100 ms Intervall.
In der OnTimer Prozedur mache ich folgendes:

Delphi-Quellcode:

zehntelsek := zehntelsek + 1;
  if(zehntelsek = 10) then
  begin
    zehntelsek := 0;
    sekunden := sekunden + 1;
    if(sekunden = 60) then
    begin
      sekunden := 0;
      minuten := minuten + 1;
    end;
  end;
  Form1.LZehntelsek.Caption := inttostr(zehntelsek);
  Form1.LSekunden.Caption := inttostr(sekunden);
  Form1.LMinuten.Caption := inttostr(minuten);

Ein Test des Codes brachte allerdings ein ernüchterndes Ergebnis.

Eine Minute in realer Zeit entspricht nur 55 Sekunden in meinem Timer.
Woran liegt das?
Und ist das überhaupt der richtige Ansatz für einen Doppeltimer?

Vielen Dank schonmal
TheTommynator