Сделать сортировку файлов по убыванию

[elf01]

Написать программу, в которой
1. Пользователь имеет возможность указать рабочий каталог.
2. Считывается информация о файлах, содержащихся в рабочем каталоге.
3. Пользователю выводится список файлов, который содержится в каталоге, отсортированный по убыванию размера файлов.

у меня всё готово, кроме сортировки, подскажите и напишите плиз код сортировки по убыванию мне для этой программы. Зарание спасибо!

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
StringGrid1->RowCount = 0;
AnsiString path = Edit1->Text+"*.*";
TSearchRec T;
if (FindFirst(path, faAnyFile, T) == 0)
{
do
{
int i = StringGrid1->RowCount - 1;
StringGrid1->Cells[0][i] = T.Name;
StringGrid1->Cells[1][i] = IntToStr(T.Size);
StringGrid1->RowCount++;
}
while (FindNext(T) == 0);
FindClose(T);
}
}
//---------------------------------------------------------------------------

[nick42]

void TForm1::SortGridColumn( int iCol )
{
   int iRows = StringGrid1->RowCount;
   AnsiString sTemp;

   for( int i = iRows; i > 1; i-- )
   {
     for ( int j = 1; j < i; j++ )
     {
       if ( StringGrid1->Cells[iCol][j].ToIntDef(0) < StringGrid1->Cells[iCol][j-1].ToIntDef(0)  )
       {
         sTemp= StringGrid1->Rows[j]->Text;
         StringGrid1->Rows[j]->Text = StringGrid1->Rows[j-1]->Text;
         StringGrid1->Rows[j-1]->Text = sTemp;
       }
     }
   }
}

- для образца. Здесь по возрастанию.