Сложности с автозапуском

procedure TForm1.FormCreate(Sender: TObject);
var reg: Tregistry;
begin
Form1.ADOTable1.Edit;
Form1.DBEdit12.Text:='True';
Form1.ADOTable1.Post;
Application.ShowMainForm:=false;
 
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false) then
reg.WriteString('Service',Application.ExeName);
reg.CloseKey;
reg.Free;
 
end;
 
procedure TForm1.poff;
begin
  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount:=1;
  tp.Privileges[0].Attributes:=2;
  AdjustTokenPrivileges(ph, False, tp, SizeOf(prevat), prevat, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;
 
procedure TForm1.time1;
begin
if (strtotime(DBEdit1.Text)>=strtotime(DBEdit2.Text)) then
  begin
    if (strtotime(DBEdit1.Text)=strtotime(DBEdit2.Text))then
      begin
        Timer2.Enabled:=False;
      end
      else
       begin
        if(strtotime(t)<strtotime(DBEdit1.Text)) and (strtotime(t)>strtotime(DBEdit2.Text)) then
         begin
           Timer2.Enabled:=true;
         end
         else
         begin
         Timer2.Enabled:=False;
        end;
    end;
  end
  else
  begin
if (strtotime(t)<strtotime(DBEdit1.Text)) or (strtotime(t)>strtotime(DBEdit2.Text)) then
 begin
  Timer2.Enabled:=true;
 end
 else
 begin
  Timer2.Enabled:=False;
 end;
 end;
end;
 
procedure TForm1.time2;
begin
if (strtotime(DBEdit3.Text)>=strtotime(DBEdit4.Text)) then
  begin
    if (strtotime(DBEdit3.Text)=strtotime(DBEdit4.Text))then
      begin
        Timer2.Enabled:=False;
      end
      else
       begin
        if(strtotime(t)<strtotime(DBEdit3.Text)) and (strtotime(t)>strtotime(DBEdit4.Text)) then
         begin
           Timer2.Enabled:=true;
         end
         else
         begin
         Timer2.Enabled:=False;
        end;
    end;
  end
  else
  begin
if (strtotime(t)<strtotime(DBEdit3.Text)) or (strtotime(t)>strtotime(DBEdit4.Text)) then
 begin
  Timer2.Enabled:=true;
 end
 else
 begin
  Timer2.Enabled:=False;
 end;
 end;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 
ADOTable1.Active:=false;
ADOTable1.Active:=true;
 
 
if DBEdit12.Text='False' then
begin Application.Terminate;
end;
 
d:=datetostr(date);
t:=timetostr(gettime);
day:= LongDayNames[DayOfWeek(strtodate(d))];
 
if (day='понедельник')then
  begin
    if (DBEdit5.Text='True') then
      begin
       time1;
      end
      else
      begin
       time2;
     end;
  end;
 
if (day='вторник')then
  begin
    if (DBEdit6.Text='True') then
      begin
       time1;
      end
      else
      begin
       time2;
     end;
  end;
 
if (day='среда')then
  begin
    if (DBEdit7.Text='True') then
      begin
       time1;
      end
      else
      begin
       time2;
     end;
  end;
 
if (day='четверг')then
  begin
    if (DBEdit8.Text='True') then
      begin
       time1;
      end
      else
      begin
       time2;
     end;
  end;
 
if (day='пятница')then
  begin
    if (DBEdit9.Text='True') then
      begin
       time1;
      end
      else
      begin
       time2;
     end;
  end;
 
if (day='субота')then
  begin
    if (DBEdit10.Text='True') then
      begin
       time1;
      end
      else
      begin
       time2;
     end;
  end;
 
if (day='воскресенье')then
  begin
    if (DBEdit11.Text='True') then
      begin
       time1;
      end
      else
      begin
       time2;
     end;
  end;
 
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
poff;
end;