1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.SortMemoList();
var
ZahlenArray : array [0..100] of Integer;     //Hier werden die Zahlen drin gespeichert
x,y : Integer;      //Das sind Counter für die Schleifen
TempInt : Integer;  //Dies ist die Tauschvariable
Anzahl : Integer;   //Anzahl eingetragener Werte im Memo
begin
//Anzahl der Werte weden bestimmt
Anzahl := Memo1.Lines.Count;
//Jetzt werden die Zahlen aus dem Memo in ein Array eingelesen
 For x := 0 to (Anzahl - 1) do begin
   ZahlenArray[x] := StrToInt(Memo1.Lines[x]);
 end;
//Jetzt beginnt die Sortierung
 For x := 0 to (Anzahl - 2) do begin
   For y := 0 to (Anzahl - 2) do begin
       if ZahlenArray[y] > ZahlenArray[y+1] then begin
          TempInt := ZahlenArray[y+1];
          ZahlenArray[y+1] := ZahlenArray[y];
          ZahlenArray[y] := TempInt;
       end;
   end;
 end;
//Und dann fehlt noch die Ausgabe
 For x := 0 to Anzahl -1 do begin
   Memo2.Lines.Add(IntToStr(ZahlenArray[x]));
 end;

end;