Listar todas las tareas programadas

procedure TFormulario.FormCreate(Sender: TObject);
var
  service,rootfolder,taskCollection,RegisteredTask:Olevariant;
  numberOfTasks: Integer;
begin
  service:=CreateOleObject('Schedule.Service');
  service.connect;
  rootfolder:=service.GetFolder(Olevariant('\'));
  taskCollection := rootFolder.GetTasks(0);
  numberOfTasks := taskCollection.Count;
  for numberOfTasks:= 1 To taskCollection.Count  do
    begin
      RegisteredTask := taskCollection.item[numberOfTasks];
      With ListView1.Items.Add Do
        Begin
          Caption := RegisteredTask.name;
          case RegisteredTask.State of
            0: SubItems.Add('Desconocido');
            1: SubItems.Add('Deshabilitado');
            2: SubItems.Add('En espera');
            3: SubItems.Add('Listo');
            4: SubItems.Add('En ejecución');
          end;
          SubItems.Add(RegisteredTask.LastRunTime);
          SubItems.Add(RegisteredTask.LastTaskResult);
        End;
    end;
end;