软件启动多长时间

计算软件启动了多长时间：用定时器，每分钟触发一次；

procedure TFrmMain.tmCheckLegalTimer(Sender: TObject);
Var Minutes:LongInt; NewDay:String;
begin
Minutes:=MyReg.ReadInteger(‘Minute‘);
Inc(Minutes);
FrmSetUp.lbRunTime.Caption :=Format(‘%d天 %2.2d小时 %2.2d分钟‘,
[Minutes div 60 div 24, (Minutes div 60) mod 24, Minutes mod 60]);

MyReg.WriteInteger(‘Minute‘,Minutes);

end;

拓展：有没有函数直接算出两个时间的差的？