TForm1 *Form1;    void SortFileListBoxItem(TFileListBox*);
AnsiString GetMainFileName(AnsiString);    //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 FileListBox1->ApplyFilePath("c:\\test\\");     for (int i=1;iItems->Count;i++)
          SortFileListBoxItem(FileListBox1);
}
//---------------------------------------------------------------------------
void SortFileListBoxItem(TFileListBox* filelistbox)
{
 AnsiString filename1,filename2;     for (int Itm=0;Itm<Form1->FileListBox1->Items->Count-1;Itm++) {
      filename1=GetMainFileName(Form1->FileListBox1->Items->Strings[Itm]);
      filename2=GetMainFileName(Form1->FileListBox1->Items->Strings[Itm+1]);          if (StrToInt(filename1)>StrToInt(filename2))
          Form1->FileListBox1->Items->Exchange(Itm,Itm+1);
 }
}
//---------------------------------------------------------------------------
AnsiString GetMainFileName(AnsiString filename)
{
 int len=filename.Length();     return filename.SubString(1,len-4);
}
//---------------------------------------------------------------------------