The snippet dosent seem to work with DElphi 2010..
[DCC Error] Unit1.pas(90): E2010 Incompatible types: 'Char' and 'AnsiChar'
ExecuteMacro(PChar('[FindFolder(, '+ sVerz +')]'), False);
[DCC Warning] Unit1.pas(89): W1002 Symbol 'IncludeTrailingBackslash' is specific to a platform
sVerz := IncludeTrailingBackslash(Verzeichnis);