Not as such, but there are a few things that may help.
There are shortcuts to fold everything at a certain "nest-level"
Tools > Options > Editor > KeyMappings: Text Folding commands > Fold to Level n
Alt-Shift-1..9
Depending on what you have configured as fold-able, top level "class" may be nested on level 2 (nested in type).
But if "unit" is fold-able to it is level 3, and if "implementation" is too, then level 4.
Similar you can count for top level "procedure".
That is not 100% what you need, but it may help a bit.
-----------
More important is the ability to hide comments (and inactive ifdef):
Select all text in the editor (or the text to which you want to apply folds).
Right click the gutter part with the fold symbols, the context menu offers "hide all comments in selection"
------------
You can define your own regions
{%region /fold%}
{%endregion%}
--------------
You can save your folds in your session, so if you close the IDE with some of the above folded, next time you open the project, the folds still exists (only if the source was not changed outside the IDE)