Код:
var a:file;
...
Assignfile(a,'filename.PPP');//связываем переменную с файлом filename.ppp
rewrite(a);//говорим что будем записывать
write(a,'text);// пишем в файл строку "text"
closefile(a);//закрываем файл
...
Таким образом ты создаёшь файл , где "РРР"(можно любое) твоё расширение. Другие проги по умолчанию не будут открывать его но если нажать "открыть с помощью..." то тогда обычным блокнотом можно посмотреть будет.
Ну а чтобы другие проги вообще не могли открыть наверное надо это делать каким-то образом через ресурсы, не знаю как это делать.