No puede probar en Win7 64bits pero he probado en Win7 32bits y la siguiente función funciona Ok.
Código Delphi
[-]
function FileExists(const FileName: string): bool;
var
Handle: THandle;
FindData: TWin32FindData;
begin
Handle := FindFirstFile(PChar(FileName), FindData);
Result := (Handle <> INVALID_HANDLE_VALUE);
if Result then Windows.FindClose(Handle);
end;
Saludos.