сохранение в юникоде delphi

добрый день. не подскажите как можно сохранить текстовую информацию из tntmemo в текстовом файле(*txt). который сохранялся бы тоже в юникоде? заранее спасибо

 

Code:

var fs : TFileStream;
    tms : String;
Begin
    fs := TFileStream.Create('dddd.txt', fmCreate);
    tms := AnsiToUtf8(Memo1.Text);
    fs.WriteBuffer(tms[1], Length(tms));
    fs.Free;
end;