Функция список файлов в папке программы

//Функция возвращает список файлов в папке программы.

//Пример использования:

memo1.lines:=SearchAllFilesInHomeDir('*.*');

//реализация
function SearchAllFilesInHomeDir(mask:string):TStringList;

var

return:TStringList;

searchResult:TSearchRec;

begin

return:=TStringList.Create();

if FindFirst(mask,faAnyFile,searchResult) = 0

  then begin

          repeat

            return.Add(searchResult.Name);

          until FindNext(searchResult)<>0;

FindClose(searchResult);
result:=return;
end;
end;