TStringList |Кодировки, unicode |

Добрый день уважаемому сообществу !
Помогите разобраться со следующей проблемой.

На обработку поступает массив строк. Нужно  определить кодировку строк - либо ANSI, либо Unicode.

Работа идет в среде Embarcadero Delphi RAD Studio 10.

Этот массив строк хранится в компоненте TStringList.
Если строки вводятся из файла прямо в TStringList, то для этого случая имеется демонстрационный код, работающий на ура :

procedure TForm2.Btn1Click(Sender: TObject);
var
  ListStr : TStringList;
  StrNameCod : UnicodeString;
  LEncoding : TEncoding;
begin
ListStr := TStringList.Create();
ListStr.Clear();

  case RG.ItemIndex of
    0 : ListStr.LoadFromFile( 'c:\ ... ' ); // Вводим файл с текстом в кодировке ANSI
    1 : ListStr.LoadFromFile( 'c:\ ... ' ); // Вводим файл с текстом в кодировке Unicode
  end;

LEncoding := ListStr.Encoding;
StrNameCod := LEncoding.EncodingName; // получаем имя кодировки текста

Memo1.Clear();
Memo1.Lines.AddStrings( ListStr );

Memo2.Clear();
Memo2.Lines.Add( StrNameCod ); // выводим на отображение имя кодировки текста

ListStr.Free();
end;

  А вот в случае, если строки в TStringList загружаются не прямо из файла, а из какого-то стороннего источника
( допустим - из другого компонента ), то свойство ListStr.Encoding  не работает :

procedure TForm2.Btn2Click(Sender: TObject);
var
  ListStr : TStringList;
  StrNameCod : UnicodeString;
  i : Integer;
  LEncoding : TEncoding;
begin
// Сперва загружаем из файла строки в Memo, а затем переписываем их в StringList
//  ( имтация передачи в StringList из стороннего источника )
case RG.ItemIndex of
  0 : Memo1.Lines.LoadFromFile( 'c:\ ... ' ); // Вводим файл с текстом в кодировке ANSI
  1 : Memo1.Lines.LoadFromFile( 'c:\ ... ' ); // Вводим файл с текстом в кодировке Unicode
end;

LEncoding := TEncoding.Create();

ListStr := TStringList.Create();
ListStr.Clear();

ListStr.AddStrings( Memo1.Lines );

// for i := 0 to Memo1.Lines.Count - 1 do
//  ListStr.Add( Memo1.Lines.Strings[ i ] );

LEncoding := ListStr.Encoding;

// StrNameCod := LEncoding.EncodingName;
StrNameCod := ListStr.Encoding.EncodingName;
// StrNameCod := Memo1.Lines.Encoding.EncodingName;

Memo2.Clear();
Memo2.Lines.Add( StrNameCod );

LEncoding.Free();
ListStr.Free();
end;

При присвоении StrNameCod значения непосредственно от ListStr.Encoding.EncodingName, либо через LEncoding.EncodingName
приложение аварийно вылетает с исключением.
  При таких  условиях ( строки вводятся не из файла ) свойство ListStr.Encoding не работает, или я чго-то не так делаю ?
Починить как-то можно ?