XMLDocument چطوری به صورت utf_8 ذخیره کنم ؟

[baran_2005]

DXML:=TXMLDocument.Create(Self);
DXML.Active:=true;
StrXML:='<?xml version="1.0" encoding="UTF-8"?> '+
'<Ask>'+
'<UserName>'+UserName_Company+'</UserName>'+
' <Subject>'+ED_Subject.Text+'</Subject> '+
' <Question>'+MM_Question.Text+'</Question> '+
' <Time>'+LB_Time .Caption +'</Time>'+
' <Date>'+LB_Date .Caption +'</Date> '+
'</Ask>';
DXML.XML.Text:=AnsiToUtf8(StrXML);
DXML.XML.SaveToFile(ExtractFilePath(Application.Ex eName)+'\HRCSetting\ask.xml');

فایل xml به صورت بالا ایجاد میکنم ولی به صورت ansi ذخیره میشه و بعد نمیتونم با MemoryStream بخونمشون . چطوری میتونم فایل با encoding utf_8 ذخیره کنم ؟

[Felony]

var
DXML: TXMLDocument;
StrXML: String;
begin
DXML:= TXMLDocument.Create(Self);
try
DXML.Active:=true;
StrXML:='<?xml version="1.0" encoding="UTF-8"?> '+
'<Ask>'+
'<UserName>'+UserName_Company+'</UserName>'+
' <Subject>'+ED_Subject.Text+'</Subject> '+
' <Question>'+MM_Question.Text+'</Question> '+
' <Time>'+LB_Time .Caption +'</Time>'+
' <Date>'+LB_Date .Caption +'</Date> '+
'</Ask>';
DXML.XML.Text:= StrXML;
DXML.XML.SaveToFile(ExtractFilePath(Application.Ex eName)+'\ask.xml', TEncoding.UTF8);
finally
DXML.Free;
end;
end;