[pescriba]

Una forma mas simple de solucionar el problema

Código Delphi [-]
function Compare(Item1: Pointer; Item2: Pointer): Integer;
begin
  if TMiClase(Item1).Propiedad > TMiClase(Item2).Propiedad then
    Result := 1
  else
    if TMiClase(Item1).Propiedad = TMiClase(Item2).Propiedad then
      Result := 0
    else
      Result := -1
end;

Saludos...[/quote]