[pylsar]

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  SR: TSearchRec;
  FindRes: Integer;
begin
  ComboBox1.Clear;
  FindRes := FindFirst('C:\1\*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    ComboBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  List : TStringList;
  i,j : integer;
  S : String;
begin
  List := TStringList.Create;
  S:=ComboBox1.Items.Strings[5];
  List.LoadFromFile(S);
  StringGrid1.RowCount := List.Count;
  for i:=0 to StringGrid1.RowCount-1 do
    with StringGrid1.Rows[i] do
    begin
      Delimiter:=' ';   
      DelimitedText:=List[i];
  end;
end;

Админ: Пользоваться тегами по их назначению, а не абы как!

Собственно в выпадающем списке имена файлов находящихся в папке 1 диска С. Кстати как их отсортировать по дате и выбросить из списка ComboBox ( . и ..), которые при поиске записываются в Items ComboBox'a ? Далее хочу при выборе файла из списка загружать его в StringGrid, если ручками прописать конкретный файл, то код работает. Не получается реализовать с изменяющимся файлом S.