请问如何实现在程序上显示程序运行的时间，就是程序从启动到目前运行了多长时间，直到程序退出。

Question

请问如何实现在程序上显示程序运行的时间，就是程序从启动到目前运行了多长时间，直到程序退出。

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := FormatDateTime ('hh:nn:ss', (Now - strtotime(Label2.Caption)));
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Label2.Caption := timetostr(Now);
end;