Tlist - Сортировка

[MAcK]

Есть структура
Type
P = record
Zn1, Zn2, Zn3, Zn4 :string;
end;
T = ^p;
var
D: T;
Li : Tlist;
begin
New(D);
{заполняем}
Li.add(D);
end;

Нужно отсортировать по Zn3, Zn4 - подскажите как???
(знаю есть Li.sort("параметры") - но какие параметры передавать и как не знаю)

[Stilet]

Ну-вообще то в хелпе на Tlist.Sort есть пример, достаточно понятно описаный.