Запрос прав админа

uses System.Diagnostics, System.Security.Principal;
begin
  var diskName := ReadString('On which disk to create file? Enter the letter:');
  diskName += ':\';
  if not System.Environment.GetLogicalDrives.Contains(diskName) then
    Writeln('Disk not found.') else
  begin
    var fileName := $'{diskName}xxxx.bin';
    try
      // Лучше создавать сразу BinaryWriter, раз файл бинарный
      var bw := new System.IO.BinaryWriter(System.IO.File.Create(fileName));
      bw.Write(byte(255));
      bw.Close;
      //bw.Dispose; // а это ни к чему, пока вы по несколько тысяч файлов в сек не создаёте
    except
      // Ловить и гасить все исключения - плохо
      // Если б вы заглянули на msdn - узнали бы что при нехватке прав бросается только это:
      on e: System.UnauthorizedAccessException do begin
        //Writeln(e);//Выводит очень много букв
        Writeln('Unauthorized Access Exception to disk '+diskName);
        var id : WindowsIdentity := WindowsIdentity.GetCurrent();
        var principal : WindowsPrincipal := new WindowsPrincipal(id);
        var IsAdmin : boolean := principal.IsInRole(WindowsBuiltInRole.Administrator);
        if IsAdmin = false then begin
          Writeln('Trying run as administrator.');
          var t : ProcessStartInfo := new ProcessStartInfo(ParamStr(0));
          t.UseShellExecute := true;
          t.Verb := 'runas';
          try
            Process.Start(t);
          except
            writeln('Can not start as administrator');
          end;
        end else begin
          Writeln('Already run as administrator.');
        end;
      end;
    end;
  end;
  ReadString('Press any key to quit.');
end.