begin

t := GetTickCount;
d := t div td;
dec(t, d * td);
h := t div th;
dec(t, h * th);
m := t div tm;
dec(t, m * tm);
s := t div ts;
Result := 'Cas od startu: '+IntToStr(d)+ ' dní '+IntToStr(h)+' hodin '+IntToStr(m)+ ' minut '+IntToStr(s)+' sekund';
end;
A to je pro dnešek všechno. Příště se podíváme na klávesové zkratky, naučíme se spouštět aplikaci v celoobrazovkovém režimu, ukážeme si, jak zajistit spuštění pouze jedné instance programu a další drobnosti.