Opdater SekLabel

Jeg har oprettet nogle grafiske komponenter som skifter \"State\" under visse omstændigheder i mit program.
Under hver komponent har jeg en label som skal vise hvor lang tid der er gået siden sidste \"state\" skift.
For at begrænse antallet af timere i programmmet har jeg bare en hovedtimer som vipper med et flag en gang i sekundet.

mit problem er nu at tælle disse vip og overføre dem til min tidslabel. For at opnå dette har jeg forestillet mig følgende kode som kaldes 1. pr sekund


var
  Tid :TTime;

Begin
  Inc(Tid);
  Label1.Caption := TimeToStr(Tid);
end;

og da det ikke virker har jeg prøvet med

var
  hour, min, sec, msec : word;
begin
  DecodeTime(timer, Hour, min, sec, msec);
  timer := EncodeTime(hour, min, sec+1, msec);
  label2.caption := timetostr(timer);
end;

Hvilket virker i 60 sek.

Har nogen en elegant løsning på problemet ?