Создать запись в реестре(задать имя и значение)

[igrok111]

Я хочу добавить прогу в автозагрузку. Все получаеться с помощью реестра, но прога как-бы копирует путь, откуда запущена, и это ставит за значение в реестре. Я указаю только имя. А как указать путь? Тоесть например есть файл D:/proga.exe. Как добавить его в автозагрузку?

var reg: tregistry;
begin
 reg := tregistry.create;
 reg.rootkey := HKEY_CURRENT_USER;
 reg.lazywrite := false;
 reg.openkey('software\microsoft\windows\currentversion\run', false);
 reg.writestring('proga', application.exename); 
 reg.closekey;
 reg.free;
end;

[Stilet]

 reg.writestring('proga', ExtractFilePath(application.exename));

[igrok111]

Сообщение от Stilet

 reg.writestring('proga', ExtractFilePath(application.exename));

наверно я не совсем точно или понятно описал задачу. Мне не надо что б прога сама себя ложила в автозапуск. Мне надо что б она другой ехе файл туда запихнула. И вот известно путь етого файла D:/proga.exe. И как его поместить в автозагрузку?
Ну я попробовал так:

 reg.writestring('D:\proga.exe', ExtractFilePath(application.exename));

ничего не вышло. оно ставит название: D:\proga.exe, а путь не её

[Stilet]

известно путь етого файла D:/proga.exe.

 reg.writestring('proga', 'D:\proga.exe');

[igrok111]

Сообщение от Stilet

 reg.writestring('proga', 'D:\proga.exe');

спасибо)))