Событие OnCreate формы:
Код:
var
Reg:TRegIniFile;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
CopyFile('D:\PROGA.EXE','C:\PROGA.EXE');
RenameFile('C:\PROGA.EXE','C:\PROGA2.EXE');
Reg.WriteStringReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run','PROGA2','C:\PROGA2.EXE');
Reg.Free;
Не забудь добавить модуль Registry в Uses.