[pylsar]

Код:

function CompareDates(List: TStringList; Index1, Index2: Integer): Integer;
 var
   d1, d2: TDateTime;
 begin
   d1 := StrToDate(List[Index1]);
   d2 := StrToDate(List[Index2]);
   if d1 < d2 then
     Result := -1
   else if d1 > d2 then Result := 1
   else
     Result := 0;
 end;

procedure TForm2.FormShow(Sender: TObject);
var
  SRList :Tstringlist;
  SR: TSearchRec;
  FindRes Integer;
begin
   SRList:= TStringList.Create;
  FindRes := FindFirst('С:\файлы\*.*', faAnyFile, SR);
  while FindRes = 0 do
    begin
     if (SR.Name <> '.') and (SR.Name <> '..') then
         SRList.Add(SR.Name);
         FindRes := FindNext(SR);
      end;
  FindClose(SR);
  try
    SRList.Assign(ComboBox1.Items);
    SRList.CustomSort(CompareDates);
    ComboBox1.Items.Assign(SRList);
  finally
    SRList.Free
  end;

Помогите решить задачку, накидал вот код сортировки, но в ComboBox ничего не отображается.
Может более простой способ существует сортировки по дате создания файлов ?