ошибка в создании файла

[acid_bmstu]

при запуске программы на усеченной windows 7 и висте вылетает ошибка
File access denied, причем на XP и полной семерке все работает нормально

код

Var f:System.Text;
p:string;
begin
p:='C:\Program Files\Movie Maker\123.txt';
if DirectoryExists('C:\Program Files\Movie Maker')=false then
CreateDir('C:\Program Files\Movie Maker');
AssignFile(f,p); //регистрация файла
Rewrite(f);
CloseFile(f);
end;

в чем может быт проблема и как ее исправить?

[DIgorevich]

Проблема в администраторских правах.