{***********************************************************************}
{									}
{ __ExistFil  Detect presence of a file 				}
{									}
{ function  __ExistFil(PathName : _Path) : boolean;			}
{									}
{   PathName  The name of the file for which a search is made. The file }
{	      name and extension must be specified; "wild card" charac- }
{	      ters are allowed. 					}
{									}
{ Description __ExistFil returns TRUE is the specified file can be found}
{	      and FALSE otherwise.  If a path specifier is present, the }
{	      subdirectory is searched, but if one is not, the current	}
{	      directory is checked.					}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function  __ExistFil(PathName : _Path) : boolean;

  var
    FileInfo : SearchRec;

  begin {__ExistFil}

    FindFirst(PathName,_ANYFILE,FileInfo);
    __ExistFil := (DosError = 0)

  end;	{__ExistFil}
