Cette procédure permet de rechercher au fichier dans une liste de chemin de répertoire avec des chaînes de caractères standard Pascal.
Function FileSearch(Const Name, DirList:String):String;