Список файлов , Построение СФ ВСЕГО диска

Как построить список файлов ВСЕГО диска?
С одним каталогом проблем нет:
....
....
TSearchRec x;
FindFirst("c:\\*.*",faAnyFile,x);
RichEdit1->Lines->Add(x.Name);
while (FindNext(x) == 0)
{
if (x.Attr==faDirectory) RichEdit1->SelAttributes->Color = clRed;
RichEdit1->Lines->Add(x.Name);
};
....
....
Как мне кажется етот кусок кода надо засунуть в функцию,
и вызывать ее рекурсивно (где-то подсмотрел, а подробностей
не помню).

Подскажите, плиз.

С уважением, Алексей.

FAQ!