procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := false;
  Button1.Text := 'Task running';
  fTask := TTask.Run(procedure()
    begin
      repeat
        if TTask.CurrentTask.Status = TTaskStatus.Canceled then
          break;
        Sleep(10);
        TThread.Synchronize(nil, procedure()
          begin
            Button1.Text := DateTimeToStr(Now);
          end);
      until false;
      Sleep(100);
      Button1.Enabled := true;
      Button1.Text := 'Start Task';
    end);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Assigned(fTask) then begin
    fTask.Cancel;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(fTask) then begin
    fTask.Cancel;
    while Button1.Enabled = false do;
  end;
end;