Jist Google for Free Pascal FindFirst and you will get

http://community.freepascal.org:1000...findfirst.html