Blue Lock is an application that locks your Windows PC if a particular Bluetooth device is not detected. For example, if you register your Bluetooth mobile phone with the program but then move away from your desk, the program will detect your phone is out of range and automatically lock your system, requiring the password to be entered to reactivate the system. Full Delphi source code is provided.

http://members.lycos.co.uk/wuul/bluelock/readme.html
http://members.lycos.co.uk/wuul/index.html