Delphi source to get the number of files of the specified type