// Burbuja(memo.lines);
// Burbuja(listbox.lines);
// etc
procedure burbuja(conjunto : tstrings);
var
i,j : integer;
begin
        for i:=0 to conjunto.count-2 do
        for j:=i+1 to conjunto.count-1 do
        if lowercase(conjunto[i])>lowercase(conjunto[j]) then
        conjunto.Move(i,j);
end;