Mergesort quellcode

[Koby]

das verstehe ich nit ganz die beiden proceduren

[delphi]procedure TSortierverfahren.Enter_bClick(Sender: TObject);
begin
Sortierverfahren.nsortiert_lb.items.add(eingabefel d_e.text);
Setlength (nsortiert,Elemente+1);
nsortiert[Elemente] := (StrToInt(eingabefeld_e.text));
Elemente:=Elemente+1;
Sortierverfahren.eingabefeld_e.text :='';
end;

procedure TSortierverfahren.Sort_bClick(Sender: TObject);
var
i:integer;
begin
Sortierverfahren.Mergesort(nsortiert);
for i:= 0 to Elemente-1 do
begin
Sortierverfahren.sortiert_lb.items.add(IntToStr(ns ortiert[i]));
end;
end;