Nedtælling fra når pc'en starter

Hej.
Downloadede engang et program fra en hjemmeside om delphi(kan ikke lige huske hjemmesiden).
Det var et pro der viste vor lang tid pc'en har været åben.
Alså nedtæller den fra da pc'en blev tændt.
Det var et smader godt pro da det ikke skulle være åbnet fra når pc'en starter. Den kan bare åbnes, se hvor lang tid du har været på pc'en, uden at det køre i baggrunden eller sådan noget.
Kan bare læse det når man har lyst og lukke det så det ikke køre mere.

Mit spr er så, om hvordan jeg selv kan lave sådan en. Den skal bare skrive det i en label eller i en edit.

Den må hente det fra et eller andet sted i windowses databaser.

Håber det er læt. Eller vis jeg give jer et par ekstra up

Kode 

function CurrentUptime: string;
const
  tickspermonth: integer = 2592000000;
  ticksperweeks: integer = {1000 * 60 * 60 * 24 * 30}604800000;
  ticksperday: integer = 1000 * 60 * 60 * 24;
  ticksperhour: integer = 1000 * 60 * 60;
  ticksperminute: integer = 1000 * 60;
  tickspersecond: integer = 1000;

var
  t: longword;
  mo, w, d, h, m, s: integer;

begin
 t := GetTickCount;
  s := t div tickspersecond;
  Result := IntToStr(t);
end;

function Prouptime: string;
const
  tickspermonth: integer = 2592000000;
  ticksperweeks: integer = {1000 * 60 * 60 * 24 * 30}604800000;
  ticksperday: integer = 1000 * 60 * 60 * 24;
  ticksperhour: integer = 1000 * 60 * 60;
  ticksperminute: integer = 1000 * 60;
  tickspersecond: integer = 1000;

var
  t: longword;
  mo, w, d, h, m, s: integer;

begin
 t := programuptime;
 mo := t div tickspermonth;
 dec(t, mo * tickspermonth);

 w := t div ticksperweeks;
 dec(t, w * ticksperweeks);

  d := t div ticksperday;
  dec(t, d * ticksperday);

  h := t div ticksperhour;
  dec(t, h * ticksperhour);

  m := t div ticksperminute;
  dec(t, m * ticksperminute);

  s := t div tickspersecond;

  Result := IntToStr(mo) + 'm, ' + IntToStr(w) + 'w, ' + IntToStr(d) + 'd, ' + IntToStr(h) + 't, ' + IntToStr(m) + 'm, ' + IntToStr(s) + 's ';
end;

Hej.
Downloadede engang et program fra en hjemmeside om delphi(kan ikke lige huske hjemmesiden).
Det var et pro der viste vor lang tid pc'en har været åben.
Alså nedtæller den fra da pc'en blev tændt.
Det var et smader godt pro da det ikke skulle være åbnet fra når pc'en starter. Den kan bare åbnes, se hvor lang tid du har været på pc'en, uden at det køre i baggrunden eller sådan noget.
Kan bare læse det når man har lyst og lukke det så det ikke køre mere.

Mit spr er så, om hvordan jeg selv kan lave sådan en. Den skal bare skrive det i en label eller i en edit.

Den må hente det fra et eller andet sted i windowses databaser.

Håber det er læt. Eller vis jeg give jer et par ekstra up

Tak.
Men prøve chadi's først.
Vis den virker.
Bruger jeg den. Og vis den ikke gør, prøver jeg din...