Examples Delphi

(This applies only to Windows 95/ Windows NT)
Every time the function FindFirst is called, a Windows handle is requested.
If you do not release this handle using FindClose, you may end up having
spent all handles and you cannot access directories anymore.
Attention:
A known behavior of NT: Calling FindClose after an UNsuccessful FindFirst can hang the system.
Only call FindClose if FindFirst was successful.