Delphi - programa usando metodo de burbuja

procedure TForm1.Button1Click(Sender: TObject);

var i, j:integer;

    sAux: string;

    Lineas: TStringList;

begin

  Lineas := TStringList.Create;

  Lineas.AddStrings(memo1.lines);

  for i := 1 to Lineas.Count - 1 do begin

    for j := 0 to Lineas.Count - i - 1 do begin

      if Uppercase(Lineas[j]) > UpperCase(Lineas[j + 1]) then begin

        sAux := Lineas[j];

        Lineas[j] := Lineas[j + 1];

        Lineas[j + 1] := sAux;

      end;

    end;

  end;

  Memo2.Lines := Lineas;

  Lineas.Free;

end;