[NIch]

Все сделано до вас...
Можно так
http://www.delphisources.ru/pages/fa...file_name.html
http://www.delphisources.ru/pages/fa...iles_name.html
Лучше так
http://www.delphibasics.ru/ExtractFileExt.php
Ну и еще чуть другое
http://www.sql.ru/faq/faq_topic.aspx?fid=454