TTask запустить время жизни или пока он еще должен быть активным

Question

Как я могу добавить некоторые задачи и их задачи работают на всю жизнь или пока переменная все еще имеет значение true? пример, который я создаю здесь (2 задачи)

var
  Tasks : array [0..1] of ITask;
  x     : Integer;
begin
  for x := 0 to 1 do
  begin
    Tasks[x] := TTask.Create(ManageEvent(x));
    Tasks[x].Start;
  end;

процедура управления событиями:

    function ManageEvent(ID : Integer): TProc;
begin
  TLabel(Form1.FindComponent(Events[ID][4])).Caption := Format('%s', [Events[ID][0]]);

  TLabel(Form1.FindComponent(Events[ID][5])).Caption := FormatDateTime('hh:nn:ss', StrToTime(Events[ID][1]) - Time);
  TLabel(Form1.FindComponent(Events[ID][5])).Repaint;
end;

События объявляются как:

Events : Array [0..1, 0..6] of String = (('Event A - 22:54:00', '22:54:00', 'ON', '0', 'Label1', 'Label4', 'Image13'),
                                            ('Event B - 22:54:00', '22:54:00', 'OFF', '0', 'Label2', 'Label5', 'Image14'));

Что я нужно, чтобы время их выполнения выполнялось, или пока их потоки (ttasks) еще живы, поэтому они обновляют метки setup ar. Массив Events с фактическим временем и разницей времени между установленным в массиве и фактическим временем.

how я могу это сделать? чтобы эти задачи работали пожизненно или пока еще активно?