Jak usunąć wszystkie pliki w katalogu? (delphi 5)

Mam pytanko. Jak usunąć wszystkie pliki w katalogu? Używam procedury
RemoveDir(c:\katalog);
alo ona usówa tylko puste katalogi. A ja chcę żeby usunęło wszystkie pliki i katalogi wewnątrz tego filderu. Pomóżcie !!! ;-(

Znajdz wszystkie pliki w folderze i usuń je.