for i:= 0 to DirList.Count - 1 do FindAllFiles(FilesList, DirList[i], FileMask); DirList.Free; end; function GetAliasPath(alias: string): string; var MyStringList: TStringList; asession: TSession; begin result:=''; // Auslesen der Aliasparameter MyStringList:= TStringList.Create...