// Результат - успешна ли сортировка
function SortList(List: TList): Boolean;
begin
  Result := false;
  try
    // Отсортируем
    List.Sort(Compare);
    // А вдруг не получилось?..
    Result := SortList(List);
  except
    // Если пора заканчивать
    on EStackOverflow do
    begin
      Result := true;
      exit;
    end;
  end;
end;