Не работает автозапуск

uses
  Microsoft.Win32, system;
 
const
  ApplicationName = 'PABC.NET AutoRun';
 
var
  i: byte;
  mas: array[1..100, 1..2] of string;
  f: pabcsystem.text;
 
 
 
var
  s, s1, s2: string;
  date: datetime;
 
 
begin
  var Reg := Registry.LocalMachine.CreateSubKey('Software\Microsoft\Windows\CurrentVersion\Run');
  Reg.SetValue(ApplicationName, GetEXEFileName);
  Reg.Close;
  
  assign(f, 'data.txt');
  reset(f);
  for i := 1 to 100 do 
  begin
    readln(f, s);
    s1 := copy(s, 1, 5);
    s2 := copy(s, 7, 20);
    mas[i, 1] := s1;
    mas[i, 2] := s2;
  end;
  close(f);
  for i := 1 to 100 do 
  begin
    date := datetime.today;
    s := date.ToShortDateString;
    s1 := copy(s, 1, 5);
    if mas[i, 1] = s1 then begin
      writeln('У кого-то денька');
      writeln('Этот кто-то...');
      sleep(1000);
      writeln(mas[i, 2]);
    end;
  end;
  writeln('Больше ничего не найдено...');
  readln;
  
end.

var path := Environment.GetFolderPath(Environment.SpecialFolder.Startup));

uses System, System.IO, System.Reflection;
 
begin
    // Путь к папке автозапуска
    var autorunPath := Environment.GetFolderPath(Environment.SpecialFolder.Startup);
    // Этот объект представляет исполняющееся приложение
    var exeAssembly := Assembly.GetExecutingAssembly();
    // Он может вернуть null при определённых обстоятельствах
    if not (exeAssembly = nil) then
    begin;
        // Путь назначения - объединяем путь к автозапуску
        var destPath := Path.Combine(autorunPath,
            // и имя исполняемого файла
            Path.GetFileName(exeAssembly.Location));
        // Если файл уже существует, снова его копировать не нужно
        if &File.Exists(destPath) = false then
        begin;
            &File.Copy(exeAssembly.Location, destPath);
        end;
    end;
end.

ExtractFilePath(paramstr(0));

  var PathAndName := GetEXEFileName;
  WriteLn('Путь + имя = ', PathAndName);
  var OnlyPath := System.IO.Path.GetDirectoryName(PathAndName);
  WriteLn('Путь = ', OnlyPath);
  var OnlyName := System.IO.Path.GetFileName(PathAndName);
  WriteLn('Имя = ', OnlyName);
  var Extention := System.IO.Path.GetExtension(PathAndName);
  WriteLn('Расширение = ', Extention);