Cette fonction permet de demander le répertoire courant avec une chaîne de caractères de format standard Pascal.

Function GetCurrentDir: string;