Время Работы Программы

var
  t : TDateTime;
 
procedure TForm1.FormCreate(Sender : TObject);
begin
  //Дата и время в настоящий момент.
  t := Now;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var
  Z : Extended;
begin
  //Количество секунд, прошедшее от момента t.
  Z := (Now - t)/(24*60*60);
...
end;

var
  //Начальный момент времени.
  TimeStart : TDateTime = 0;
 
//Запуск таймера.
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Определяем текущую дату и время.
  TimeStart := Now;
  //Показываем начальное время.
  Label1.Caption := FormatDateTime('hh:nn:ss:zzz', 0);
  //Включаем таймер.
  Timer1.Enabled := True;
  //Интервал таймера можно установить на 1000 миллисекунд.
end;
 
//Обработка тиков таймера.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Показыавем сколько времени прошло.
  Label1.Caption := FormatDateTime('hh:nn:ss:zzz', Now - TimeStart);
end;

var
  Form1: TForm1;
 FProgramTimeStart: TDateTime;
implementation
 
procedure TForm1.FormCreate(Sender: TObject);
begin
FProgramTimeStart := Now;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := FormatDateTime('hh:mm:ss', Now - FProgramTimeStart);
end;
end.