How to choose the catalog with OpenDialog

You can use SELECTDIRECTORY (need Uses filectrl)

VAR DIR: STRING; Begin Dir: = 'C: /'; if SelectDirectory (Dir, [SDALLOWCREATE, SDPERFORMCREATE, SDPROMPT], 0) THEN ShowMessage (DIR);