[Страдалецъ]

С чего вдруг?
Примерно это будет так:

Код:

 
program MyApp;
{$APPTYPE CONSOLE}
uses
SysUtils, Registry, Windows, Dialogs;
procedure RunOnWinStart(ApTitle, ApPathFile: string;
RunOnce: Boolean);
var
Reg: TRegistry;
TheKey: string;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run';
if RunOnce then TheKey := TheKey + 'Once';
Reg.OpenKey(TheKey, False);
if Reg.ReadString(ApTitle) = ''
then begin
Reg.WriteString(ApTitle, ApPathFile);
end
else begin
ShowMessage('Ключ создан. Запуск основной программы')
end;
Reg.CloseKey;
Reg.Free;
end;
begin
RunOnWinStart('MyApp','C:\Program Files\Borland\Delphi7\Projects\MyApp.exe',False);
end.