Сортировка динамического списка | Delphi

[Chloe]

Кто сможет помочь с вот такой задачей:
Создаем список(в ручную, или из файла не важно) и нужно отсортировать его по возрастанию и по убыванию.

[Johnson]

http://programmersforum.ru/search.php?searchid=999737
Тут мало?..

[Chloe]

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TStringList;
begin
  t:=TStringList.Create;
  t.AddStrings(memo1.lines);
  t.Sort;
  memo1.Clear;
  memo1.Lines.AddStrings(t);
end;

это сортировка А-Я, а как сделать что бы сортировало наоборот,т.е. Я-А??