使用版本 : XE10.4(含10.3.x)
使用 StringList.SaveToFile('123.txt', TEncoding.UTF8) 可以存成 UTF-8編碼的文字檔, 但利用記事本打開是呈現 UTF-8具BOM格式的檔案, 請問有沒有其他方式可以在存檔時, 直接為UTF-8 格式, 因為有些介面對含BOM的格式不接受, 我還得透過其他工具把它轉掉!

請參閱
https://www.itread01.com/content/1544448086.html

using (TextReader input = new StreamReader(new FileStream(@"C:\Test.properties", FileMode.Open), Encoding.UTF8))
{
using (TextWriter output = new StreamWriter(new FileStream(@"C:\Test2.lmx", FileMode.Create), Encoding.UTF8))
{
int BufferSize = 8096;
char[] buffer = new char[i];
int len;

while ((len = input.Read(buffer, 0, i)) > 0)
{
output.Write(buffer, 0, len);
}

input.Close();
}
}

感謝 herbert2 的回覆, 這篇我在搜尋時也有看過, 只是好像是以 C++還是C#的語法, 看不太懂, 
原諒小弟能力不足, 不會改成for Delphi 語法

===================引 用 herbert2 文 章===================
請參閱
https://www.itread01.com/content/1544448086.html

using (TextReader input = new StreamReader(new FileStream(@"C:\Test.properties", FileMode.Open), Encoding.UTF8))
{
using (TextWriter output = new StreamWriter(new FileStream(@"C:\Test2.lmx", FileMode.Create), Encoding.UTF8))
{
int BufferSize = 8096;
char[] buffer = new char[i];
int len;

while ((len = input.Read(buffer, 0, i)) > 0)
{
output.Write(buffer, 0, len);
}

input.Close();
}
}

編輯記錄

自建一個 procedure,  傳入已存在之 text 檔名及要另存的新檔名.
利用 TFileStream 的 method 讀入原 text 檔, seek 至 position 3(0起), 寫出該 posion 及之後的內容至新 text 檔 (即刪掉前 3 Bytes 的 BOM 碼).
他此例為 C#, 似乎 Read 時會自動去掉 BOM 碼, 而 Write 時不會又加入 BOM 碼, 且一次完成讀寫.
檔案若太大, 或許會有問題., 則可考慮設定 char buffer, 分多段依序讀入 buffer、將 buffer 寫出.
Delphi 的 TFileStream 於 Read 時不會改變便原 text 檔的內容,

感謝, 我抽空再測一下建議的方式
有成功的話, 再將語法分享出來

研究了好幾天, 也朝 FileStream方向爬文, 可能自己的功力還不到, 也顯少在system上鑽研, 仍不得其門入, 最終還是努力找到網路別人寫好移除bom的一篇程式, 直接帶入就可以用了, 分享給各位
先用 StringList.savetoFile('xxx'),
再用 RemoveBom('xxx') 就好了
底下程式碼應該會變得沒有任何縮排, 請再自行調整

function RemoveBom(filename : string) : boolean;
const UTF8_FLAG = $EFBB;
var fsRead, fsWrite : TFileStream;
w : word;
b : byte;
filename_tmp : string;
len : integer;

function WordLoHiExchange(w : Word): Word; register;
asm
XCHG AL, AH
end;
begin
result := False;
if(Fileexists(filename) = False)then exit;
fsRead := TFileStream.Create(filename, fmOpenRead or fmShareDenyNone); // or fmOpenWrite
try
fsRead.Seek(0, soFromBeginning);
fsRead.Read(w, 2);
w := WordLoHiExchange(w);
if w = UTF8_FLAG then
begin
fsRead.Read(b, 1);
len := fsRead.Size - fsRead.Position;
filename_tmp := filename 'tmp';
fsWrite := TFileStream.Create(filename_tmp, fmCreate);
fsWrite.CopyFrom(fsRead, len);
fsWrite.Free;
result := True;
end;
finally
fsRead.Free;
if result then
begin
DeleteFile(filename);
MoveFile(pChar(filename_tmp), pChar(Filename));
end;
end;
end;

http://firemonkeylessons.blogspot.com/2018/07/tstrings-tstringlist-utf8-bom.html

想要把 BOM 拿掉，只需要把 WriteBOM 設定為 False 即可

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

哇!! 這麼簡單, 我花了好多天都找不到相關的搜尋, 網路真的浩瀚無垠, 撈不到底, 也感謝王大的提供