[delphi] usuwanie

Mam program i jak jest w folderze np. Delphi to chce by usunął wszystkie pliki z tego folderu oprócz siebie. Niech usuwa wszystko z <font color="red">fodleru</span> w którym sie znajduje. Ma ktos jakis pomysl?

FindFirst oraz FindNext
i porównywać SearchRec.Name z Application.ExeName

P.S. Śmierdzi mi to wirusem.