[Krash]

Простейший вариант не подойдёт?

    timeStart = timeNow();
    // ... запуск процедуры
    timeEnd = timeNow();
    info(time2str(TimeEnd - TimeStart, 1, 1));