procedure OnPFLOn(PlayerType: TPlayerType; PlaylistIndex: integer; PlayerIndex: integer; PFLCount: integer);
begin
  if PFLCount = 1 then
    IOWarriorRemote(1).SetPort(31, true);
end;

procedure OnPFLOff(PlayerType: TPlayerType; PlaylistIndex: integer; PlayerIndex: integer; PFLCount: integer);
begin
  if PFLCount = 0 then
    IOWarriorRemote(1).SetPort(31, false);
end;

begin
end.