Как записать из Memo файл в кодировке UTF-8 без BOM

    
function ClearBOM(FileName:string):boolean;
var s,sr:string;
    FS:TFileStream;
    MS:TMemoryStream;
    i:integer;
    res:boolean;
    bom:array [0..2] of byte;
begin
try
    result:=false;
    FS:=TFileStream.Create(FileName,fmOpenRead);
    if FS.Size < 3 then
    begin
        result := true;
        exit;
    end;
    SetLength(sr,3);
    for i:=0 to 2 do
    begin
        FS.Position:=i;
        FS.Read(s,1);
        sr[i+1]:=s;
    end;
    res := (sr[1] = chr($EF)) and
           (sr[2] = chr($BB)) and
           (sr[3] = chr($BF));
    if res then
        begin
           MS:=TMemoryStream.Create;
           MS.CopyFrom(FS,FS.Size-3);
           FS.Free;
           FS:=nil;
           MS.SaveToFile(FileName);
        end;
    result := true;
finally
    if MS <> nil then MS.Free;
    if FS <> nil then FS.Free;

end;
end;