Procedimiento que ordena una lista de cadenas (los lines de los richedit, meno, listbox, ...) usando el algoritmo de la burbuja

// 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;

Otras entradas de la web que podrian interesarte:

• (496)  Nov 30   DELPHI   Recorrer los componentes de un form y cambiar una propiedad de un determinado tipo de componente
• (498)  Nov 30   DELPHI   Salida de numeros decimales limitada, al estilo de los dos puntos (:) en los writeln del turbo pascal
• (494)  Nov 30   DELPHI   Procedimiento que compara dos ficheros del disco
• (433)  Jan 01   DELPHI   Añadir texto a un richedit y que la barra de scroll baje sola
• (511)  Nov 30   LINUX   ¿Como muestro los comandos que he ejecutado en el bash que contengan una palabra dada?