Fold repetitive scandir.pas cases.

This didn’t look very appealing. Unless there’s some profound idea in them...

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information