Nedtælling fra når pc'en starter (ekstra up)

Kode 

var
starttime: cardinal;
seconds: cardinal;
hours: cardinal;
minutes: cardinal;
remseconds: cardinal;
begin
starttime :=GetTickcount();
seconds:= starttime div 1000;
hours:= seconds div 3600;
minutes:= (seconds - (hours * 3600)) div 60;
remseconds:= (seconds - ((minutes * 60) + (hours * 3600)));
Edit1.text:= inttostr(hours) + ':' + inttostr(minutes) + '.' + inttostr(remseconds);
end;

Du skal sætte det i en Timer, og prøv i første omgang at sætte interval til 1000.. jeg er sikker på det virker
Hilsen CHadi
Mit lykketal er 2959