Сделать скрытым текстовый файл

{$resource data.txt}//можно указать и путь к какой то папке
 
var data := new Dictionary<string, string>;
 
procedure LoadData;
begin
  var sr := new System.IO.StreamReader(GetResourceStream('data.txt'));//а тут надо писать всё равно только имя, без пути к файлу
  while not sr.EndOfStream do
  begin
    var l := sr.ReadLine;
    var a := l.Split(new string[](':::'), System.StringSplitOptions.None); // я выбрал в качестве разделителя вопроса и ответа. Его можно заменить на что угодно
    data[a[0].Trim] := a[1].Trim; // .Trim уберает пробелы в начале и конце обеих строк. Можете убрать, если у вас их нет, или если они вам нужны
  end;
  sr.Close;
end;
 
begin
  LoadData;
  
  foreach var kvp in data do
  begin
    writeln(kvp.Key);//.Key это Вопрос, .Value это ответ
    var ansv := ReadlnString;
    
    if ansv=kvp.Value then
      writeln('Правильный ответ!') else
      writeln($'Неправильно, ответ был {kvp.Value}');
    
  end;
  
end.

 System.IO.File.SetAttributes('file.txt', System.IO.FileAttributes.Hidden);

var a := System.Convert.ToBase64String(System.IO.File.ReadAllBytes('file.txt'));

System.IO.File.WriteAllBytes('file1.txt', System.Convert.FromBase64String(a));