Prototype:
procedure FindClose(var FindRec: TFindRec);
Description:
Ends a find sequence, and frees the resources associated with it. You should always call this when FindFirst returns True.
Example:
For an example, see the documentation for FindFirst.
See also:
FindFirst
FindNext