Zufalsgenerator mit schon gewählt funktion aus XML Datei

[Cyberbob_at_tot]

Hallo zusammen,
habe da ein Problem,
ich will aus einer XML Datei...

XML-Code:

<?xml version="1.0" encoding="ISO-8859-1"?>
<Schülerdaten>
   <id><Name>D</Name><Vorname>Christian</Vorname><Note>1</Note><gewählt>Ja</gewählt><joker>Ja</joker></id>
   <id><Name>R</Name><Vorname>Andreas</Vorname><Note>6</Note><gewählt>Nein</gewählt><joker>Nein</joker></id></Schülerdaten>

Einen zufalsgenerator machen, der mir zufällig einen Namen ausspuckt und dabei lernt ob jemand schon dran war oder nicht.

In Delphi habe ich das so gelöst...

Delphi-Quellcode:

Function zufall():integer;
Var x,y,z:integer;
begin
z:=ID.length;
y:=ID.length;
ShowMessage(inttostr(ID.length));
x:=0;
If x <> y Then
   Begin
   Randomize;
   result:=Random(z);
   ShowMessage(inttostr(result));
   If xmldoc.documentElement.selectSingleNode('/Schülerdaten/id[ID="'+inttostr(result)+'"]/gewählt').Text = 'Ja' Then
      Begin
      x:=x+1;
      zufall;
      End
      Else xmldoc.documentElement.selectSingleNode('/Schülerdaten/id[ID="'+inttostr(result)+'"]/gewählt').Text:='Ja';
   end
else Showmessage('Alle Schüler wurden benotet!');
End;

Nur Leider bekomme ich wärend der Laufzeit ein Fehlermeldung like...Zugriffsverlezung bei Adresse...usw....hier
 If xmldoc.documentElement.selectSingleNode('/Schülerdaten/id[ID="'+inttostr(result)+'"]/gewählt').Text = 'Ja' Then
ich glaube da stimmt was nicht mit dem Aufruf der XML datei.

Besten dank an alle.

Cyberbob