>>20
>Result:= FindFirstFile(PChar(fname), FindData) <> INVALID_HANDLE_VALUE;
これって見つかったときに CloseHandle しなくていいの？