delphi: Make example toggle the relays