--------------------------------------------------------------------------------

Модуль: SysUtils

Описание
Процедура завершает последовательность вызовов функций FindFirst - FindNext... и высвобождает память, выделенную при вызове функции FindFirst.

Пример
Данный пример выводит список всех файлов с расширением *.txt в каталоге 'C:\WINDOWS\'.
var
F: TSearchRec;
begin
if FindFirst('C:\WINDOWS\*.txt', faAnyFile, F)=0 then
begin
Memo1.Lines.Add(F.Name);
while FindNext(F) = 0 do Memo1.Lines.Add( F.Name);
end;
FindClose(F);
end;