Сортировка в обратном порядке в Checklistbox

[lexaltd]

Помогите с сортировкой в обратном порядке в CheckListBox.

В норм. порядке использую поцедуру SORT.

Сортирую так :

procedure ParamSort;
var
t: TStringList;
begin
t:=TStringList.Create;
t.AddStrings(Form1.CheckListBox1.Items);
t.Sort;
Form1.CheckListBox1.Items.Clear;
Form1.CheckListBox1.Items.AddStrings(t);
end;

Может есть для обратного порядка тоже какая то процедура ?

Пробывал через массив , но там не очень получается - чувствителен к регистру и т. д

Зарание спасибо

 

[lexaltd]

cм TStringList.CustomSort
PS: указывать Form1. - крайне неграмотно.

А можно по подробней как это всё будет выгледить - я не сильно в этом разбираюсь

Разобрался
Может кому пригодится

function MySort(List: TStringList; Index1, Index2: Integer): Integer;
begin
if List[Index1]<List[Index2] then
begin
Result := 1;
Exit;
end;
if List[Index1]=List[Index2] then
Result := 0
else Result := -1;
end;