Узнать время работы Windows

function GetTimeOfWorkWind:string;
var
t: integer;
begin
t := GetTickCount;
result := IntToStr(t div 60000) + ' мин ' +
IntToStr((t mod 60000) div 1000) + ' сек ' +
IntToStr(t mod 1000) + ' мсек';
end;