How do I scan wifi?

Is there a Delphi sample that implements BroadCastReceiver?