Concevoir un petit chronomètre

var
Form1: TForm1;
TheTime:Integer;
implementation

{$R *.DFM}


Function GetCounter(Second:Integer):String;
Var
Minute,NewSecond,Hour : Currency;
Begin
Hour := Int(Second / 3600);
Minute := Int((Second-(Hour*3600))/60);
NewSecond := Second-int(Hour*3600+Minute*60);
GetCounter := CurrToStr(Hour)+':'+CurrToStr(Minute)+':'+CurrToStr(NewSecond);
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
TheTime:=GetTickCount;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=GetCounter(GetTickCount Div 1000 -TheTime Div 1000);
end;
end.