Кодировка файла UFT8 без BOM

ONELIST:= TStringList.Create;

ONELIST.LoadFromFile('C:\Users\Admin\Desktop\test.txt');

??????????????????????????????????????????????

procedure LoadFromFile(const FileName: string; Encoding: TEncoding); overload; virtual;

//Загрузка текста в кодировке UTF-8 из файла, преобразование кодировок
//UTF-8 -> UNICODE (UTF-16LE) (-> ANSI для Delphi 2007 и ниже) и загрузка в экземпляр типа TMemo.
//В файле может присутствовать или отсутствовать метка BOM - в программе это учитывается.
procedure TForm1.Button1Click(Sender: TObject);
var
  Od : TOpenDialog;
  Fs : TFileStream;
  S  : UTF8String;  //UTF8String = AnsiString.
begin
  //Диалог выбора файла.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then
    Exit;
  if not FileExists(Od.FileName) then
  begin
    MessageBox(Handle, 'Файл с заданным именем не найден! Действие отменено.',
      'Файл не найден!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
 
  //Загрузка данных из файла и их обработка.
  Fs := TFileStream.Create(Od.FileName, fmOpenRead + fmShareDenyWrite);
  try
    //Проверяем наличие метки BOM. Метка BOM: #$EF#$BB#$BF. Если она присутствует,
    //то указатель потока устанавливаем непосредственно справа от неё. Тем самым
    //исключаем метку из дальнейшей загрузки. В противном случае, если метка BOM
    //отсутствует, то возвращаем указатель потока на начало файла.
    SetString(S, PChar(#0#0#0), 3); //Размещаем строку в динамической памяти и задаём её содержимое: #0#0#0.
    if (Fs.Read(S[1], 3) < 3) or (S <> #$EF#$BB#$BF) then
      Fs.Position := 0;
 
    //Загрузка данных из файла
    SetLength(S, Fs.Size - Fs.Position); //(Fs.Size - Fs.Position) - длина строки за вычетом размера метки BOM.
    Fs.Read(S[1], Fs.Size); //Здесь написано Fs.Size вместо (Fs.Size - Fs.Position) - это тоже правильно.
 
    //Преобразование UTF-8 -> UNICODE (UTF-16LE) (-> ANSI для Delphi 2007 и ниже) и запись в Memo.
    //Подходит для любых версий Delphi. В ANSI версиях Delphi при присвоении строки типа
    //WideString переменной типа String (AnsiString), автоматически выполянется преобразование UNICODE -> ANSI.
    Memo1.Text := UTF8Decode(S);
  finally
    FreeAndNil(Fs);
  end;
end;