Funcion: FSearch()
Sintaxis:

function FSearch(
 
  path: PathStr;
 
  dirlist: String
 

Descripcion: FSearchv busca el archvio en el path en todos los directorios listados en DirList. El nombre completo de el archivo encontrado es regresado. DirList debe ser una lista d edirectorios separados por puntos y comas. Cuando una rchivo no es encontado, una cadena en blanco es regresada.

observacion: en sistemas unic. DirLista puede ser separada por comas, como de costumbre en esos ambientes
Ejemplo:

Program Example10;
uses Dos;
 
{ Program to demonstrate the FSearch function. }
 
var
  s : string;
begin
  s:=FSearch(ParamStr(1),GetEnv('PATH'));
  if s='' then
   WriteLn(ParamStr(1),' not Found in PATH')
  else
   Writeln(ParamStr(1),' Found in PATH at ',s);
end.