1:
2:
3:

start:=Now;
...
ende:=Now;					

1:
2:
3:

runtime := stop - start;

label1.caption := FormatDateTime('hh:mm:ss');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

function Seconds: Double;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(Now, Hour, Min, Sec, MSec);
  Seconds := 3600 * Hour + 60 * Min + sec + MSec / 1000;
end;

[..]

var
start, stop, total: double;
begin
  Start := Seconds;
  // mach ma' was Computer
  Stop := Seconds;
  total := stop - start;
  
  if total <= 60 then
    writeln(' Benötigte Zeit: ', total:4:1, ' Sekunden');
  if (total > 60) and (total <= 3600) then
    writeln(' Benötigte Zeit: ', (total/60):4:1, ' Minuten');
  if total > 3600 then
    writeln(' Benötigte Zeit: ', (total/3600):5:2, ' Stunden');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function UpTime: string;
const
  ticksperday : Cardinal = 1000 * 60 * 60 * 24;
  ticksperhour : Cardinal = 1000 * 60 * 60;
  ticksperminute : Cardinal = 1000 * 60;
  tickspersecond : Cardinal = 1000;
var
  t : longword;
  d, h, m, s : Cardinal;
begin
  t := GetTickCount;
  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 := 'Windows-Uptime: '+IntToStr(d)+ ' Tage '+IntToStr(h)+' Stunden '+IntToStr(m)+' Minuten '+IntToStr(s)+' Sekunden';
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var Start, AktuelleZeit: Cardinal;

//beim Programmstart:
  Start:=GetTickCount;

//irgndwann, wenn es ausgegeben werden soll:
  AktuelleZeit:=GetTickCount-Start;
  LabelX.Caption:=ZeigeZeit(AktuelleZeit);