[fpc-pascal]Find*-Bug

[James_Wilson at i2.com]

> findfirst('*.*',faAnyFile-faDirectory,sr) will
> return '.' and '..' as well, even the sr.attr
> is correct set to faDirectory.

AFAIK, that will most likely remain that way as well. The '.' stands for
current directory, while the '..' stands for parent directory. Since, in
essence, those two entries do indeed represent directories findfirst is
returning the "correct" answer.

Jim