Прототип
procedure FindClose(var
FindRec: TFindRec);
Описание
Завершает цикл поиска и освобождает связанные с ним ресурсы. Всегда
используйте эту функцию, если FindFirst
возвращает значение True.
Пример
Смотрите пример и документацию по функции FindFirst.
См. также:
FindFirst
FindNext