Работа с каталогами в дельфи

[Hint_reg]

procedure TForm1.Button1Click(Sender: TObject);
var
Fo : TSHFileOpStruct;
buffer : array[0..4096] of char;
p : pchar;
begin
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
p := StrECopy(p, 'C:\Key2') + 1;
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_DELETE;
Fo.pFrom := @Buffer;
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or
(Fo.fAnyOperationsAborted <> false)) then
ShowMessage('Cancelled')
end;

Но тут есть одна проблема. Каталог Key2 которую я хочу удалить, может находится и в другом месте. Как можно сделать так чтобы прога нашел всех каталогов key2 и удалил их?

[BARNEY]

по гугли процедуру GetAllFiles думаю разберешься

[FaTaL]

FindFirst, FindNext, FindClose, DeleteDirectory Вам в помощь.