http://fssr.ru/hz.php?name=News&file=article&sid=8086
В блоке begin - end пиши условие запуска как сервиса и как приложения.
Кстати, вот более толковый пример от _Rouse:
http://rouse.drkb.ru/winapi.php (Доступ из сервиса к рабочему столу).
З.Ы. По запросу "delphi сервис api" можно найти более грамотные исходники.