procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
  j: Integer;
  temp:string;
begin
for i := 0 to memo1.Lines.Count - 1 do //warum -1, er nimmt für i die erste zahl und für j
                                       // die zweite, tauscht sie aus wenn nötig
for j := i to memo1.Lines.Count - 1 do //und das solange bis j>i, warum -1???
begin
  if memo1.Lines[i]>memo1.Lines[j] then
  begin
    temp:=memo1.lines[i];
    memo1.Lines[i]:=memo1.lines[j];
    memo1.Lines[j]:=temp;