Сортировка в делфи.

[Олямбан]

ПРивет всем. Нужна ваша помощь. У меня есть программа, которая при вводе нашего текста считает количество каждой буквы и выводит, нужно сортировать это по убыванию. Помогитеее.

Код:

var
  Form1: TForm1;
  k:string;
  a:char;   //символ
  b:integer;//кол-во символа "a" в строке
  c:integer;//количество различных символов
implementation

{$R *.dfm}

procedure clear;
begin
  Form1.StringGrid1.Cols[1].Clear;
  Form1.StringGrid1.Cols[2].Clear;
  Form1.StringGrid1.RowCount:=1;
  b:=0;
  c:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var i:integer;
begin
  clear;
  Form1.StringGrid1.Cells[0,c]:='Символ';
  Form1.StringGrid1.Cells[1,c]:='Количество';
  k:=Edit1.Text;
  while Length(k)<>0 do
    begin
      inc(c);
      a:=k[1];;
      b:=1;

      for i := 2 to Length(k) do
        if k[i]=a then inc(b);
      k:=StringReplace(k,a,'',
                              [rfReplaceAll]);
      Form1.StringGrid1.Cells[0,c]:='"'+a+'"';
      Form1.StringGrid1.Cells[1,c]:=IntToStr(b);
    end;
  Form1.StringGrid1.RowCount:=c+1;
end;

end.

КРОССПОСТ - http://www.programmersforum.ru/showthread.php?t=279820