EAccessViolation bei Bubblesort

[Dyvil]

erstmal vielen Dank für eure Hilfe! besonderen Dank an DeddyH!
Bubblesort funktioniert für die Sortierung der Noten schon wunderbar, aber die Fächer werden nicht wirklich sortiert.Anstatt diese so zu sortieren, dass am Ende die Noten wieder zu den Fächern passen, werden die Fächer auch mit den Noten befüllt und sortiert von 1 bis ...
Ich kann mir den Fehler nicht wirklich erklären, weil die Sortierung der Noten wunderbar funktioniert und diese durch "StrToInt" eingelesen werden, also kann bei den strings nicht wirklich was falsch sein, oder?

Delphi-Quellcode:

unit fAbiturrechner;
var
  Abiturrechner: TAbiturrechner;
  List : TStringList;

type
  TNoteneintrag = record
    Editfeld: string;
    Notenpunkte: Integer;
       end;
  Blg = array[1..5] of TNoteneintrag;

implementation

procedure SwapIntegers(var a, b : integer);
begin
  a := a xor b;
  b := b xor a;
  a := a xor b;
end;

procedure BubbleSort(var List: Blg);
var
  done: boolean;
  i, n: integer;
  Dummy: string;
begin
  n := High(List);
  repeat
    done := true;
      for i := Low(List) to High(List) - 1 do
      if List[i].Notenpunkte > List[i + 1].Notenpunkte then
      begin
        Dummy := List[i].Editfeld;
        List[i].Editfeld := List[i+1].Editfeld;
        List[i + 1].Editfeld := Dummy;
        SwapIntegers(List[i].Notenpunkte,List[i + 1].Notenpunkte);
        done := false;
      end;
  until done;
end;

procedure TAbiturrechner.Button1Click(Sender: TObject);
var noten : Blg;
var s,z : string;
var i,u, t : integer;
begin
FillChar(noten,SizeOf(noten),#0);
for i := 1 to 5 do begin
s := TEdit(FindComponent('Edit' + inttostr(i))).Text;  //<-- string wird z.b. mit "Edit1.Text" gefüllt
u := StrToInt(s);                                      //<-- Noten werden eingelesen
noten[i].Notenpunkte := u;
noten[i].Editfeld := s;
end;
Bubblesort(noten);
  for i := Low(noten) to High(noten) do
    ShowMessage(Format('%d',[noten[i].Notenpunkte]));

z := noten[1].Editfeld;   //<-- Kontrolle! Hier sollte das Editfeld mit der kleinsten Punktzahl stehen
showmessage(z);
end;

end.