Дерево каталогов в табличной форме

[Македонский]

Можно ли отображать содержимое определенной папки (имена файлов и папок) в StringGride? Если да, то как?
Например, если в ComboBox-е выбрать имя какой-нить папки (Путь к ней присвоен в переменной), то в StringGrid-е отображаются имена файлов и папок, содержащиеся в данной папке.

[Квэнди]

Findfirest +F1
Findnext +F1
Findclose
Stringgrid.cells...

[Македонский]

Простите, не совсем понятно с последней вашей строчкой.

[Квэнди]

<имя компонента Tstringgrid>.cells[col,row]:='текст'

[Македонский]

Если не трудно, можно примерчик? А то у меня сплошные ошибки...

[Квэнди]

Раз у вас ошибки, показывайте что сделали, укажим где ошиблись

[Македонский]

procedure TForm1.ComboBox1Click(Sender: TObject);
var
sr: TSearchRec; FileAttrs: Integer;
begin
with StringGrid1 do
begin
RowCount := 0;
if FindFirst(memo1.Lines.Strings[1], FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
end;

[Македонский]

Оно-то работает, но результат никакой, не отображается...

[Македонский]

Всё, спасибо, уже не надо, я разобрался.

[Македонский]

А еще вопрос: можно ли сделать отображение дерева каталогов например в TreeView, но с корневой папкой, выбранной мною (Путь к ней присвоен в переменной)?