1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.ReadMemoClick(Sender: TObject);
var
  // You may need to change this path to suit your environment.
  Path: String;
begin
  Memo1.ScrollBars := ssBoth;
  Path:= Edit1.Text;
  Memo1.Lines.LoadFromFile(Path); // The encoding is read from the BOM and stored in the Encoding property.
  if Memo1.Lines.Encoding <> nil then
    Edit2.Text := Memo1.Lines.Encoding.EncodingName;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.ReadRicheditClick(Sender: TObject);
var
  // You may need to change this path to suit your environment.
  Path: String;
  DataOriginal, DataUnicode: TStringStream;
  myEncoding : TEncoding;
begin
  Richedit1.ScrollBars := ssBoth;
  Path:= Edit1.Text;
  DataOriginal := TStringStream.Create;
  try
    DataOriginal.LoadFromFile(Path);
    if DataOriginal.Encoding <> nil then
      Edit2.Text := DataOriginal.Encoding.EncodingName;
    DataUnicode := TStringStream.Create(DataOriginal.DataString, TEncoding.Unicode, False);
    try
      Richedit1.Lines.LoadFromStream(DataUnicode, TEncoding.Unicode);
    finally
      DataUnicode.Free;
    end;
  finally
    DataOriginal.Free;
  end;
end;					

1:

Richedit1.Text := Memo1.Text;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.SaveMemoClick(Sender: TObject);
var
  // You may need to change this path to suit your environment.
  Path: String;
  myEncoding : TEncoding;
begin
  Path:= {vStammDir +} Edit1.Text;
  myEncoding := TEncoding.Default;             // (true, 1)
  if (Edit2.Text = 'ASCII') then
    myEncoding := TEncoding.ASCII;             // (true, 1)
  if (Edit2.Text = 'BigEndianUnicode') then
    myEncoding := TEncoding.BigEndianUnicode;  // (false, 4)
  if (Edit2.Text = 'Default') then
    myEncoding := TEncoding.Default;           // (false, 1)
  if (Edit2.Text = 'Unicode') then
    myEncoding := TEncoding.Unicode;           // (false, 4)
// Do not use UTF7 for this.  It does not have a BOM, and so the encoding cannot be detected on a load.
//  if (Edit2.Text = 'UTF7') then myEncoding := TEncoding.UTF7;
  if (Edit2.Text = 'UTF-8') then    //'65001 (UTF-8)') then
    myEncoding := TEncoding.UTF8;              // (false, 4)
  Memo1.Lines.SaveToFile(Path, myEncoding);
end;					

1:

Edit2.Text := DataOriginal.Encoding.EncodingName;					

1:

Richedit1.Lines.LoadFromStream(DataUnicode, TEncoding.Unicode);					

1:

  DataOriginal := TStringStream.Create('', TEncoding.UTF8);					

1:
2:

myEncoding := TEncoding.UTF8;
Memo1.Lines.SaveToFile(Path, myEncoding);					

1:

Edit2.Text := DataOriginal.Encoding.EncodingXXXX; // der nur 'ASCII', oder 'UTF8' oder ...  liefert					

1:

Edit2.Text := DataOriginal.Encoding.EncodingYYYY; //der nur '66001', oder '1200' liefert