ordenar un TList

[[maeyanes]]

Para usar el método Sort de TList, necesitas crear una función que devuelva un Integer y reciba como parámetros dos punteros:

Código Delphi [-]
function Compare(Item1: Pointer; Item2: Pointer): Integer;
var
  MiClase1: TMiClase;
  MiClase2: TMiClase;

begin
  MiClase1 := TMiClase(Item1);
  MiClase2 := TMiClase(Item2);
  if MiClase1.Propiedad > MiClase2.Propiedad then
    Result := 1
  else
    if MiClase1.Propiedad = MiClase2.Propiedad then
      Result := 0
    else
      Result := -1
end;

Saludos...