Var
  FF1: Integer = 0;
  FF: Array[1..4096] Of TSearchRec;

Procedure GetFiles(Dir1, File1: String; Var Dirs, Files, FileSize: TStringList;
                   ClearList: Boolean); Register;
Var
  Files1: TStringList;
  Dirs1: TStringList;
  FileSize1: TStringList;
  I: Integer;
  File2: String;

Procedure GetFiles1(Dir1: String); Register;

Procedure GetFiles2; Register;
Var
  Temp: String;
  I64: Int64;
Begin
  If ((FF[FF1].Name <> '.') And(FF[FF1].Name <> '..')) Then
    If ((FF[FF1].Attr And faDirectory) <> 0) Then
      GetFiles1(Dir1 + '\' + FF[FF1].Name)
    Else
    Begin
      Temp := Dir1 + '\' + FF[FF1].Name;
      If File1 = '*.*' Then
      Begin
        Files1.Append(Temp);
        Int64Rec(I64).Lo := FF[FF1].FindData.nFileSizeLow;
        Int64Rec(I64).Hi := FF[FF1].FindData.nFileSizeHigh;
        FileSize1.Append(IntToStr(I64));
      End
      Else
        If File2 <> '' Then
          If UpperCase(ExtractFileExt(Temp)) = '.' + File2 Then
          Begin
            Files1.Append(Temp);
            Int64Rec(I64).Lo := FF[FF1].FindData.nFileSizeLow;
            Int64Rec(I64).Hi := FF[FF1].FindData.nFileSizeHigh;
            FileSize1.Append(IntToStr(I64));
          End
    End;
End;

Begin
  Inc(FF1);
  Dirs1.Append(Dir1);
  If FindFirst(Dir1 + '\*.*', faAnyFile, FF[FF1]) = 0 Then
  Begin
    GetFiles2;
    While FindNext(FF[FF1]) = 0 Do GetFiles2;
    FindClose(FF[FF1]);
  End;
  Dec(FF1);
End;

Begin
  If File1 = '' Then File1 := '*.*';
  If Not DirectoryExists(Dir1) Then Exit;
  For I := Length(Dir1) DownTo 1 Do
    If Dir1[I] <> '\' Then Break;
  SetLength(Dir1, I);
  If ClearList Then
  Begin
    Dirs.Clear;
    Files.Clear;
    FileSize.Clear;
  End;
  Files1 := TStringList.Create;
  Dirs1 := TStringList.Create;
  FileSize1 := TStringList.Create;
  If (File1[1] = '*') And (File1[2] = '.') Then
    File2 := UpperCase(Copy(File1, 3, Length(File1) - 2));
  GetFiles1(Dir1);
  Files.AddStrings(Files1);
  Dirs.AddStrings(Dirs1);
  FileSize.AddStrings(FileSize1);
  Files1.Free;
  Dirs1.Free;
  FileSize1.Free;
End;

program Project1;

uses
  Windows,
  Messages,
  SysUtils,
  Unit1 in 'Unit1.pas';

var ....;

procedure name1;
begin
....
end;

begin

end.

var
  Lst: TStringList; // Сам лист, промежуточный контейнер для сортировки
  str: string;
  i: cardinal;
begin
  Lst := TStringList.Create; // Инициализация листа
  Lst.Sorted := true;
  randomize; // Инициализация генератора случайных чисел
  for i:=1 to 49 do
  begin
  // Типа перемудреная генерация строчек для сортировки
    str:=CHR(ORD('A')+random(ORD('Z')-ORD('A')))+
         CHR(ORD('A')+random(ORD('Z')-ORD('A')));
    Lst.Add(str); // Добавляем строку в лист
    StringGrid1.Cells[1,i] := str; // Выводим ее в первый StringGrid
  end;

  // Выводим отсортированные строчки
  for i:=1 to 49 do
    StringGrid2.Cells[1,i] := Lst.Strings[i-1];
end;

{ 0 - одинаковые строки
  1 - s1 выше при сорт. по возрастанию
  2 - s1 ниже s2 }
function StringsCompare(s1, s2 : string) : byte;
var
  i, N : cardinal;
begin
  Result := 0;
  if Length(s1) <= Length(s2) then
     N := Length(s1)
  else
     N := Length(s2);

  for i:=1 to N do
  begin
    if UpCase(s1[i]) < UpCase(s2[i]) then
    begin
      Result := 1;
      break;
    end;
    if UpCase(s1[i]) > UpCase(s2[i]) then
    begin
      Result := 2;
      break;
    end;
  end;

  if (Length(s1) <> Length(s2)) and (Result = 0) then
     if Length(s1) > Length(s2) then Result := 2
     else Result := 1;
end;

  repeat
    nm := false;
    for i:=1 to 49 do
      if StringsCompare(items[i].str,items[i+1].str) = 2 then
      begin
        tmpitm := items[i];
        items[i] := items[i+1];
        items[i+1] := tmpitm;
        nm := true;
      end;

  until nm = false;