FindFirst, FindNext- Dateinamen sortiert einlesen

[Lantis]

Hi Leute,
ich hab folgendes Problem: Ich lese in alle in einem bestimmten Verzeichnis liegenden Dateinamen in ein StringGrid, aber die Namen sind nicht alphabetisch sortiert sondern in der Reihenfolge wie sie gespeichert sind (FAT-Tabelle?). Wie kann ich es erreichen, daß die Dateinamen gleich alphabetisch eingelesen werden?
Erklährung:
Es sollen im Verzeichnis C:\Test alle Dateien mit Endung *.be eingelesen werden in ein StringGrid (sgListe).

Delphi-Quellcode:

procedure TForm1.btnEinlesenClick(Sender: TObject);
var sr: TSearchRec;
    i,m,n: integer;
begin
  for m:=1 to sgListe.RowCount do   
   for n:=0 to sgListe.ColCount do
   sgListe.Cells[n,m]:='';
   sgListe.RowCount:=2;
  i:=1;
  if DirectoryExists('C:\Test')then
  begin
    FindFirst('C:\Test\*.be', faAnyFile, sr);
    sgListe.Cells[0,i]:=IntToStr(i);
    sgListe.Cells[1,i]:=sr.Name;
    try
      while (FindNext(sr) = 0) do
      begin
        i:=i+1;
        sgListe.RowCount:=i+1;
        sgListe.Cells[0,i]:=IntToStr(i);
        sgListe.Cells[1,i]:=sr.Name;
      end;
    finally;
      FindClose(sr);
    end;
  end else
  ShowMessage('Verzeichnis nicht vorhanden!');
end;

Was muß ich da ändern?