Test if file is Pascal source file
Function is defined as JclUtilsFile needs : TFileMatchFunc =
function(const Attr: Integer; const FileInfo: TSearchRec): Boolean;