procedure ChangeReg(StrName: ShortString; delete: boolean);

var

reg: TRegistry;

begin

Reg := nil;

try

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.LazyWrite := false;

reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);

if not delete then reg.WriteString(StrName, Application.ExeName)

else reg.DeleteValue(StrName);

reg.CloseKey;

reg.free;

except

if Assigned(Reg) then Reg.Free;

end;

end;



procedure TForm1.AddBtnClick(Sender: TObject);
begin

ChangeReg('My App',false); //добавляем в Автозагрузку

end;