Делфи, работа с системными шрифтами

Нужен небольшой софт такого плана

1. Работает на хр,7,8

2. сорцы обязательно

3. умеет составлять список системных шрифтов, результат список шрифтов в мемо\стринглист

4. умеет удалять системные шрифты, отдельная функция, которой можно скормить имя из пункта 3

5. умеет устанавливать системные шрифты из указанного файла TTF

срочно , срок 1 день